home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Business / IT&P v8.1 / IT&P v8.1 / background_4561.xml < prev    next >
Extensible Markup Language  |  1992-12-09  |  89KB  |  609 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>4561</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_4805.pbm</bitmap>
  7.     <cantDelete> <true /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_5583.css" />
  11.     <part>
  12.         <id>46</id>
  13.         <type>field</type>
  14.         <visible> <true /> </visible>
  15.         <dontWrap> <false /> </dontWrap>
  16.         <dontSearch> <false /> </dontSearch>
  17.         <sharedText> <false /> </sharedText>
  18.         <fixedLineHeight> <true /> </fixedLineHeight>
  19.         <autoTab> <false /> </autoTab>
  20.         <lockText> <true /> </lockText>
  21.         <rect>
  22.             <left>0</left>
  23.             <top>164</top>
  24.             <right>36</right>
  25.             <bottom>342</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <autoSelect> <false /> </autoSelect>
  29.         <showLines> <false /> </showLines>
  30.         <wideMargins> <false /> </wideMargins>
  31.         <multipleLines> <false /> </multipleLines>
  32.         <reservedFamily> 0 </reservedFamily>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>right</textAlign>
  36.         <font>Geneva</font>
  37.         <textSize>9</textSize>
  38.         <textStyle>condense</textStyle>
  39.         <textHeight>16</textHeight>
  40.         <name></name>
  41.         <script></script>
  42.     </part>
  43.     <part>
  44.         <id>31</id>
  45.         <type>button</type>
  46.         <visible> <true /> </visible>
  47.         <reserved5> 0 </reserved5>
  48.         <reserved4> 0 </reserved4>
  49.         <reserved3> 0 </reserved3>
  50.         <reserved2> 0 </reserved2>
  51.         <reserved1> 0 </reserved1>
  52.         <enabled> <true /> </enabled>
  53.         <rect>
  54.             <left>319</left>
  55.             <top>1</top>
  56.             <right>352</right>
  57.             <bottom>20</bottom>
  58.         </rect>
  59.         <style>roundrect</style>
  60.         <showName> <false /> </showName>
  61.         <highlight> <false /> </highlight>
  62.         <autoHighlight> <false /> </autoHighlight>
  63.         <sharedHighlight> <true /> </sharedHighlight>
  64.         <family>0</family>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>1009</icon>
  67.         <textAlign>center</textAlign>
  68.         <font>Chicago</font>
  69.         <textSize>12</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <name>Exp Hist</name>
  72.         <script>on mouseUpPut the number of lines of cd fld ID 1 into LCGet Hilite of meIF it is "False" then                              -- ExpandIF Hilite of bg btn "Exp Act" is True then ¬¨Send "mouseUp" to bg btn "Exp Act"Set Hilite of me to TrueIF "ITPHG" is in windows() then Hide window "ITPHG"Set the rect of cd fld ID 1 to 360,21,505,335IF (LC*12)>308 thenSet the Scroll of cd fld ID 1 to (LC*12)-308    -- (57+251)elseSet the Scroll of cd fld ID 1 to 3end ifelse                                                -- NormalSet Hilite of me to FalseSet the rect of cd fld ID 1 to 360,21,505,84IF LC>5 thenSet the Scroll of cd fld ID 1 to (LC*12)-57elseSet the Scroll of cd fld ID 1 to 3end ifIF "ITPHG" is in windows() then Show window "ITPHG"end ifend mouseUp</script>
  73.     </part>
  74.     <part>
  75.         <id>32</id>
  76.         <type>button</type>
  77.         <visible> <true /> </visible>
  78.         <reserved5> 0 </reserved5>
  79.         <reserved4> 0 </reserved4>
  80.         <reserved3> 0 </reserved3>
  81.         <reserved2> 0 </reserved2>
  82.         <reserved1> 0 </reserved1>
  83.         <enabled> <true /> </enabled>
  84.         <rect>
  85.             <left>257</left>
  86.             <top>1</top>
  87.             <right>290</right>
  88.             <bottom>20</bottom>
  89.         </rect>
  90.         <style>roundrect</style>
  91.         <showName> <false /> </showName>
  92.         <highlight> <false /> </highlight>
  93.         <autoHighlight> <false /> </autoHighlight>
  94.         <sharedHighlight> <true /> </sharedHighlight>
  95.         <family>0</family>
  96.         <titleWidth>0</titleWidth>
  97.         <icon>1009</icon>
  98.         <textAlign>center</textAlign>
  99.         <font>Chicago</font>
  100.         <textSize>12</textSize>
  101.         <textStyle>plain</textStyle>
  102.         <name>Exp Act</name>
  103.         <script>on mouseUpGlobal TFlagIF TFlag is "Yes" thenIF Hilite of bg btn "PC Calc" is True thenSend "mouseUp" to bg btn "PC Calc"end ifelse IF Hilite of bg btn "Exp Act" is False thenIF Hilite of bg btn "PC Calc" is True then ¬¨Send "mouseUp" to bg btn "PC Calc"IF Hilite of bg btn "Exp Hist" is True then ¬¨Send "mouseUp" to bg btn "Exp Hist"end ifDoItend mouseUpon DoitGlobal TFlagGet Hilite of meIF it is "False" then                                 -- Expands itSet Hilite of me to TrueSet rect of cd fld "Inv Activity" to 0,21,512,130Show cd fld "Inv Activity"else                                                  -- Normals itIF line 20 of bg fld "DVSGS" is "Compare" then Hide cd fld "Inv Activity"Set Hilite of me to FalseIF TFlag is "Yes" then Put "98,21,374,87" into Xelse Put "98,21,352,87" into XSet rect of cd fld "Inv Activity" to Xend ifend Doit</script>
  104.     </part>
  105.     <part>
  106.         <id>33</id>
  107.         <type>button</type>
  108.         <visible> <true /> </visible>
  109.         <reserved5> 0 </reserved5>
  110.         <reserved4> 0 </reserved4>
  111.         <reserved3> 0 </reserved3>
  112.         <reserved2> 0 </reserved2>
  113.         <reserved1> 0 </reserved1>
  114.         <enabled> <true /> </enabled>
  115.         <rect>
  116.             <left>2</left>
  117.             <top>132</top>
  118.             <right>21</right>
  119.             <bottom>148</bottom>
  120.         </rect>
  121.         <style>transparent</style>
  122.         <showName> <false /> </showName>
  123.         <highlight> <false /> </highlight>
  124.         <autoHighlight> <false /> </autoHighlight>
  125.         <sharedHighlight> <true /> </sharedHighlight>
  126.         <family>0</family>
  127.         <titleWidth>0</titleWidth>
  128.         <icon>93</icon>
  129.         <textAlign>center</textAlign>
  130.         <font>Chicago</font>
  131.         <textSize>12</textSize>
  132.         <textStyle>plain</textStyle>
  133.         <name>PC Calc</name>
  134.         <script>PCHit  -- Hit handler for floating Percentage dialogon mouseUpGlobal DJFlag,Markers,PFlag,TFlag,wRMN,PCReset,FD,TD,wMi,¬¨PCFloat,SDFlag,SDSpan,PCLLHoldIF PFlag is Empty then EXIT mouseUpSet cursor to 4IF PFlag is "must" and SDFlag<>"Yes" thenPut quote&"Plot"&quote&" Graph first."&return&¬¨"Then do "&quote&"%"&quote&" stuff!" into cd fld S1Show cd fld S1wait 4 secondsHide cd fld S1EXIT mouseUpend ifIF TFlag is "Yes" thenIF Hilite of cd btn "GT Update" is True then Exit mouseUpend ifGet Hilite of meIF it is False thenSet Hilite of me to TruePut GetPCTxt(wRMN,TFlag) into L3Put line 14 of bg fld "DVSGS" into PCLLHoldPut return into CRIF DJFlag is "Yes" thenPut "Market" into PUPut "1" into wPelseIF TFlag is "Yes" thenPut "My Worth"&CR&"Vestment" into PUIF wRMN=2 then Put 2 into wP else Put 1 into wPelse --Indv InvPut "Market"&CR&"Vestment"&CR&"My Worth" into PUIF wRMN>2 then Put 3 into wP else Put wRMN into wPend ifend ifIF DJFlag is "Yes" thenPut "    Percent Change¬†¬†¬†¬†¬†Type of %" into L12else Put empty into L12IF SDSpan<>empty thendChanger "SDates","0‚óäDismiss"Put empty into SDSpanend ifPut Dialoger("Percentage","0‚óäfloat"&CR&"on PCRelay"¬¨, "2‚óäuserPop "&wP&CR&PU¬¨, "3‚óäStyledText Geneva,10,P."&CR&L3¬¨, "4‚óäStyledText Geneva,10,PM."&CR&""¬¨, "5‚óäStyledText Geneva,10,PM."&CR&""¬¨, "6‚óäStyledText Geneva,10,PM."&CR&""¬¨, "7‚óäStyledText Geneva,10,PM."&CR&""¬¨, "8‚óäStyledText Geneva,10,BM."&CR&""¬¨, "9‚óäStyledText Geneva,10,PM."¬¨, "10‚óäStyledText Geneva,10,P."¬¨, "11‚óäStyledText Geneva,10,P."¬¨, "12‚óäStyledText Geneva,10,P."&CR&L12¬¨, "13‚óäStyledText Geneva,10,PR."¬¨, "14‚óäStyledText Geneva,10,P."¬¨, "15‚óäStyledText Geneva,10,P."¬¨) into PCFloatIF word 1 of PCFloat is "Error:" thenAnswer PCFloat with CancelEXIT to HyperCardend ifelseSet hilite of bg btn "PC Calc" to FalsePut empty into PCResetPut empty into FDPut empty into TDPut empty into wMiPut PCLLHold into line 14 of bg fld "DVSGS"Put empty into PCLLHolddChanger PCFloat,"0‚óäDismiss"end ifend mouseUpon PCHit PCfloat, itemHit  --for the percentage floating dialog windowGlobal TFlag,FD,TD,PCReset,wMi,PCLLHold,SDFlagPut return into CRGet the loc of cd windowAdd 108 to item 1 of itAdd 30 to item 2 of itPut "Loc "&it into HVIF itemHit=0 then                 -- Initialize dialog before viewingdChanger PCfloat,"0‚óä"&HV&CR&"DefaultItem 0","3‚óäcolor blue","2‚óäcolor blue"dChanger PCfloat,"1‚óäNoDismiss"&CR&"1‚óäInactivate","9‚óäcolor green","8‚óäcolor red"else IF itemHit=1 then            -- btn "Reset"Put empty into FDPut empty into TDPut empty into PCResetdChanger PCfloat,"4‚óä"&CR&"Hide"&CR&"Show"dChanger PCfloat,"5‚óä"&CR&"Hide"&CR&"Show"dChanger PCfloat,"6‚óä"&CR&"Hide"&CR&"Show"dChanger PCfloat,"7‚óä"&CR&"Hide"&CR&"Show"dChanger PCfloat,"8‚óä"&CR&"Hide"&CR&"Show"dChanger PCfloat,"1‚óäInactivate"else IF itemHit=2 then           -- PopUpPut dContents(PCfloat,2,"short") into wMiPut GetPCTxt(wMi,TFlag) into L3dChanger PCfloat,"3‚óä"&L3IF SDFlag is empty thenIF L3 contains "Value" thenPut number of lines of cd fld ID 1 into line 14 of bg fld "DVSGS"elseIF TFlag is "Yes" thenPut number of lines of cd fld "GTotals" into line 14 of bg fld "DVSGS"else Put number of lines of cd fld "Inv History" into line 14 of bg fld "DVSGS"end ifend ifelse IF itemHit= -1 then         -- Close BoxSet Hilite of bg btn "PC Calc" to FalsePut empty into FDPut empty into TDPut empty into PCResetPut empty into wMiPut PCLLHold into line 14 of bg fld "DVSGS"Put empty into PCLLHoldend ifend PCHit</script>
  135.     </part>
  136.     <part>
  137.         <id>35</id>
  138.         <type>button</type>
  139.         <visible> <true /> </visible>
  140.         <reserved5> 0 </reserved5>
  141.         <reserved4> 0 </reserved4>
  142.         <reserved3> 0 </reserved3>
  143.         <reserved2> 0 </reserved2>
  144.         <reserved1> 0 </reserved1>
  145.         <enabled> <true /> </enabled>
  146.         <rect>
  147.             <left>475</left>
  148.             <top>132</top>
  149.             <right>507</right>
  150.             <bottom>149</bottom>
  151.         </rect>
  152.         <style>transparent</style>
  153.         <showName> <false /> </showName>
  154.         <highlight> <false /> </highlight>
  155.         <autoHighlight> <false /> </autoHighlight>
  156.         <sharedHighlight> <true /> </sharedHighlight>
  157.         <family>0</family>
  158.         <titleWidth>0</titleWidth>
  159.         <icon>94</icon>
  160.         <textAlign>center</textAlign>
  161.         <font>Chicago</font>
  162.         <textSize>12</textSize>
  163.         <textStyle>plain</textStyle>
  164.         <name>History</name>
  165.         <script>HistUD        -- Updates History window (Inv & GTotals) before openingHIMsg1        -- History msg mgmtShowStuff     -- Shows all History window flds & btnsHideStuff     -- Hides all History window flds & btnsWindowMgmt    -- History mgmt of btns before opening windowon mouseUpGlobal IName,XLL,HNPFlag,Offender,TFlag,wfld,SCFlag,LB,HA,HB,¬¨thisPlot,GTChangeSet cursor to 4IF TFlag is "Yes" thenPut IName into wfldPut "TVestment" into wfld1Put "TWorth" into wfld2elsePut "Inv History" into wfldPut "Vestment" into wfld1Put "Shares" into wfld2end ifIF GTChange<>"Yes" then WindowMgmtIF TFlag is "Yes" thenPut "  Grand Totals has "&number of lines of cd fld wfld¬¨&" weeks of History data available." into cd fld "Hist Label P"elsePut "  "&IName&" Investment has "&number of lines of cd fld wfld¬¨&" weeks of History data available." into cd fld "Hist Label P"end ifGet Hilite of meIF it is False thenSet cursor to 4Set Hilite of me to TrueIF "ITPHG" is in windows() then Hide window "ITPHG"IF cd fld wfld is Empty and cd fld wfld1 is Empty ¬¨and cd fld wfld2 is Empty thenlock screenShowStuffPut Empty into XLLunlock screen with dissolvePut "Select "&quote&"?"&quote&return&"for more info!" into cd fld S1Show cd fld S1Wait 3 secondsHide cd fld S1IF "ITPHG" is in windows() then Show window "ITPHG"Exit mouseUpend ifPut the number of lines of cd fld wfld into XLLlock screenHistUD wfld,XLL,GTChangeunlock screenPut the number of lines of cd fld wfld into XLLIF GTChange<>"Yes" thenIF "|" is not in line XLL of cd fld wfld thenPut "...Standby, I'm"&return&"formatting data!" into cd fld S1Show cd fld S1end ifend iflock screenIF GTChange<>"Yes" then ShowStuffHide cd fld S1IF "|" is in line XLL of cd fld wfld thenunlock Screen with dissolveIF TFlag is "Yes" thenPut "Your Grand Totals"&return&"Vestment History." into cd fld S1else Put IName&return&"Weekly History" into cd fld S1Show cd fld S1Wait 2 secondsHide cd fld S1IF "ITPHG" is in windows() then Show window "ITPHG"Exit mouseUpelse-- uses repeat in case several weeks were posted at once-- or went by without viewing.-- No plot Flag (HNPFlag) is used because it may screwup the plot.-- The flag only gives a warning msg that the plot may be bad.IF TFlag is "Yes" thenREPEAT until line XLL of cd fld wfld contains "|"Put Empty into HNPFlagPut line XLL of cd fld wfld into HAPut justify (word 1 of HA,R,8) into HBPut " |"&(justify (word 2 of HA,R,12)) after last word of HBPut " |"&(justify (word 3 of HA,R,12)) after last word of HBPut " |"&(justify (word 4 of HA,R,11)) after last word of HBPut word 5 of HA &"%" into tempPut " |"&(justify (temp,R,8)) after last word of HBPut "Yes" into SCFlagSend "TotWCS" to cd "GTotals"Put line 1 of cd fld "DF" into TCWGLPut " |"&(justify (TCWGL,R,11)) after last word of HBPut Empty into SCFlagSend "TotWCS" to cd "GTotals"Put line 1 of cd fld "DF" into TCWPC      --includes % charPut " |"&(justify (TCWPC,R,7)) after last word of HBPut HB into line XLL of cd fld wfldPut XLL-1 into XLLend REPEATelse  --Inv HistoryREPEAT until line XLL of cd fld wfld contains "|"Put Empty into HNPFlagPut Line XLL of cd fld wfld into HADoJustifyPut HB into Line XLL of cd fld wfldPut XLL-1 into XLLend REPEATend ifunlock Screen with dissolveIF TFlag<>"Yes" thenPut IName&return&"Weekly History." into cd fld S1elseIF GTChange<>"Yes" then ¬¨Put "Your Grand Totals"&return&"Vestment History." into cd fld S1end ifShow cd fld S1IF GTChange<>"Yes" then Wait 2 secondsHide cd fld S1IF "ITPHG" is in windows() then Show window "ITPHG"IF GTChange is "CUD" then put empty into GTChangeend ifelselock screenPut Empty into LBPut Empty into thisPlotIF Hilite of bg btn "PC Calc" is True then FinCalcIF TFlag is "Yes" thenIF Hilite of cd btn "GT Update" is True thenSend "mouseUp" to cd btn "GT Update"end ifelseIF Hilite of cd btn "UD Update" is True then Send "mouseUp" to cd btn "UD Update"end ifSet Hilite of me to FalseIF GTChange<>"Yes" then HideStuffunlock Screen with dissolveend ifend mouseUpon HistUD wfld,XLL,GTChangeIF wfld is "Inv History" thenPut getNum(line 1 of cd fld "Vestment") into HVPut getNum(line 1 of cd fld "Shares") into HSIF HV<>empty and HS<>empty thenPut getDate(line 1 of bg fld "DVSGS") into HPDPut getNum(line 3 of bg fld "DVSGS") into HNAVIF getDate(word 1 of line XLL of cd fld wfld)<>HPD thenPut XLL+1 into HLLHIMsg1 wfld,GTChangePut getNum(line 1 of cd fld "WorthGL") into HWPut getNum(line 3 of cd fld "WorthGL") into HGLPut word 1 of line 1 of cd fld "InvPCDVal" into HPC --inclds %Put HPD&" "&HV&" "&HS&" "&HNAV&" "&HW&" "&HGL&" "&HPC into ¬¨line HLL of cd fld wfldelsePut XLL into HLLIF "|" is not in line HLL of cd fld wfld thenIF getNum(word 2 of line HLL of cd fld wfld) <> HV ¬¨or getNum(word 3 of line HLL of cd fld wfld) <> HS ¬¨or getNum(word 4 of line HLL of cd fld wfld) <> HNAV thenHIMsg1 wfld,GTChangePut getNum(line 1 of cd fld "WorthGL") into HWPut getNum(line 3 of cd fld "WorthGL") into HGLPut word 1 of line 1 of cd fld "InvPCDVal" into HPC --Incl %Put HPD&" "&HV&" "&HS&" "&HNAV&" "&HW&" "&HGL&" "&HPC into ¬¨line HLL of cd fld wfldend ifelseIF getNum(word 3 of line HLL of cd fld wfld) <> HV ¬¨or getNum(word 5 of line HLL of cd fld wfld) <> HS ¬¨or getNum(word 7 of line HLL of cd fld wfld) <> HNAV thenHIMsg1 wfld,GTChangePut getNum(line 1 of cd fld "WorthGL") into HWPut getNum(line 3 of cd fld "WorthGL") into HGLPut word 1 of line 1 of cd fld "InvPCDVal" into HPC --incl &Put HPD&" "&HV&" "&HS&" "&HNAV&" "&HW&" "&HGL&" "&HPC into ¬¨line HLL of cd fld wfldend ifend ifend ifend ifelse   -- GTotalsPut getNum(cd fld "TWorth") into TWPut getNum(cd fld "TVestment") into TVPut getNum(cd fld "TGL") into TGLPut getNum(cd fld "TPC") into TPC                    --no % charIF TW<>empty and TV<>empty thenPut getDate(line 1 of bg fld "DVSGS") into TPDIF getDate(word 1 of line XLL of cd fld wfld) <> TPD thenPut XLL+1 into HLLHIMsg1 wfld,GTChangePut TPD&" "&TW&" "&TV&" "&TGL&" "&TPC into ¬¨line HLL of cd fld wfldelsePut XLL into HLLIF "|" is not in line HLL of cd fld wfld thenIF getNum(word 2 of line HLL of cd fld wfld) <> TW ¬¨or getNum(word 3 of line HLL of cd fld wfld) <> TV thenHIMsg1 wfld,GTChangePut TPD&" "&TW&" "&TV&" "&TGL&" "&TPC into ¬¨line HLL of cd fld wfldend ifelseIF getNum(word 3 of line HLL of cd fld wfld) <> TW ¬¨or getNum(word 5 of line HLL of cd fld wfld) <> TV thenHIMsg1 wfld,GTChangePut TPD&" "&TW&" "&TV&" "&TGL&" "&TPC into ¬¨line HLL of cd fld wfldend ifend ifend ifend ifend ifHide cd fld S1end HistUDon HIMsg1 wfld,GTChangeIF wfld is "GTotals" thenIF GTChange<>"Yes" thenPut "..updating Grand"&return&"Totals History.." into cd fld S1end ifelse Put "..updating your"&return&"Vestment History..." into cd fld S1unlock screenShow cd fld S1lock screenend HIMsg1on ShowStuffGlobal TFlagIF TFlag is "Yes" then Show cd fld "GTotals"else Show cd fld "Inv History"Show cd fld "Hist Label A"Show cd fld "Hist Label P"Show cd btn "Exp IHist"IF TFlag is "Yes" thenShow cd btn "GT Hints"Show cd btn "GT Update"elseShow cd btn "Hist Hints"Show cd btn "UD Update"end ifend ShowStuffon HideStuffGlobal TFlagIF TFlag is "Yes" then Hide cd fld "GTotals"else Hide cd fld "Inv History"Hide cd fld "Hist Label A"Hide cd fld "Hist Label P"Hide cd btn "Exp IHist"IF TFlag is "Yes" thenHide cd btn "GT Hints"Hide cd btn "GT Update"elseHide cd btn "Hist Hints"Hide cd btn "UD Update"end ifunlock Screen with dissolveend HideStuffon WindowMgmtGlobal TFlagIF TFlag<>"Yes" thenIF Hilite of bg btn "Exp Hist" is True then ¬¨Send "mouseUp" to bg btn "Exp Hist"Put "Inv History" into wfldelse Put "GTotals" into wfldGet Hilite of meIF it is False thenIF cd fld wfld<>empty then                -- used first time onlyPut the number of lines of cd fld wfld into LCIF TFlag<>"Yes" thenIF (LC*12)>97 thenSet the Scroll of cd fld wfld ¬¨to (LC*12)-97    -- (12 line height * 8 lines + 1 for looks)end ifelseIF (LC*12)>85 thenSet the Scroll of cd fld wfld ¬¨to (LC*12)-85    -- (12 line height * 7 lines + 1 for looks)end ifend ifelse Exit WindowMgmtend ifend WindowMgmt</script>
  166.     </part>
  167.     <part>
  168.         <id>37</id>
  169.         <type>field</type>
  170.         <visible> <false /> </visible>
  171.         <dontWrap> <false /> </dontWrap>
  172.         <dontSearch> <false /> </dontSearch>
  173.         <sharedText> <false /> </sharedText>
  174.         <fixedLineHeight> <true /> </fixedLineHeight>
  175.         <autoTab> <false /> </autoTab>
  176.         <lockText> <true /> </lockText>
  177.         <rect>
  178.             <left>41</left>
  179.             <top>164</top>
  180.             <right>464</right>
  181.             <bottom>341</bottom>
  182.         </rect>
  183.         <style>scrolling</style>
  184.         <autoSelect> <false /> </autoSelect>
  185.         <showLines> <false /> </showLines>
  186.         <wideMargins> <true /> </wideMargins>
  187.         <multipleLines> <false /> </multipleLines>
  188.         <reservedFamily> 0 </reservedFamily>
  189.         <titleWidth>0</titleWidth>
  190.         <icon>0</icon>
  191.         <textAlign>left</textAlign>
  192.         <font>Geneva</font>
  193.         <textSize>10</textSize>
  194.         <textStyle>plain</textStyle>
  195.         <textHeight>13</textHeight>
  196.         <name>Hist Info</name>
  197.         <script></script>
  198.     </part>
  199.     <part>
  200.         <id>40</id>
  201.         <type>field</type>
  202.         <visible> <false /> </visible>
  203.         <dontWrap> <false /> </dontWrap>
  204.         <dontSearch> <false /> </dontSearch>
  205.         <sharedText> <false /> </sharedText>
  206.         <fixedLineHeight> <true /> </fixedLineHeight>
  207.         <autoTab> <false /> </autoTab>
  208.         <lockText> <true /> </lockText>
  209.         <rect>
  210.             <left>41</left>
  211.             <top>164</top>
  212.             <right>471</right>
  213.             <bottom>339</bottom>
  214.         </rect>
  215.         <style>scrolling</style>
  216.         <autoSelect> <false /> </autoSelect>
  217.         <showLines> <false /> </showLines>
  218.         <wideMargins> <true /> </wideMargins>
  219.         <multipleLines> <false /> </multipleLines>
  220.         <reservedFamily> 0 </reservedFamily>
  221.         <titleWidth>0</titleWidth>
  222.         <icon>0</icon>
  223.         <textAlign>left</textAlign>
  224.         <font>Geneva</font>
  225.         <textSize>10</textSize>
  226.         <textStyle>plain</textStyle>
  227.         <textHeight>13</textHeight>
  228.         <name>Help Info</name>
  229.         <script></script>
  230.     </part>
  231.     <part>
  232.         <id>53</id>
  233.         <type>button</type>
  234.         <visible> <true /> </visible>
  235.         <reserved5> 0 </reserved5>
  236.         <reserved4> 0 </reserved4>
  237.         <reserved3> 0 </reserved3>
  238.         <reserved2> 0 </reserved2>
  239.         <reserved1> 0 </reserved1>
  240.         <enabled> <true /> </enabled>
  241.         <rect>
  242.             <left>296</left>
  243.             <top>2</top>
  244.             <right>314</right>
  245.             <bottom>20</bottom>
  246.         </rect>
  247.         <style>transparent</style>
  248.         <showName> <false /> </showName>
  249.         <highlight> <false /> </highlight>
  250.         <autoHighlight> <true /> </autoHighlight>
  251.         <sharedHighlight> <true /> </sharedHighlight>
  252.         <family>0</family>
  253.         <titleWidth>0</titleWidth>
  254.         <icon>26635</icon>
  255.         <textAlign>center</textAlign>
  256.         <font>Chicago</font>
  257.         <textSize>12</textSize>
  258.         <textStyle>plain</textStyle>
  259.         <name>Help</name>
  260.         <script>on mouseUpGlobal TFlagPut return into CRIF TFlag is "Yes" thenPut cd fld ID 111 into HelpDataDelete line 1 of HelpDataelsePut bg fld "Help Info" of cd "Blank Inv" into HelpDataDelete line 1 of HelpDataend ifPut Dialoger("InvHelp"&CR&"Color green"&CR&"on PrintHelp"¬¨,"¬†¬†¬† Instructions and Features for Individual Investments" ¬¨, ""¬¨ --Button "Print Instructions/Features", "userList Geneva,10,NoSelection"&CR&HelpData¬¨, "^0"¬¨ --Static Text "Instructions/Features for Individual Investments") into dResultIF first word of dResult is "Error:" then Answer dResult with Cancelend mouseUpon UpdateInvCardGlobal InvNo                               -- Updates Entry Card alsoSet Cursor to 4Put "Shares"&InvNo into wSPut getNum(cd fld "Shares") into NewSPut NewS into cd fld wS of cd "Entry"IF NewS <> Empty thenPut getNum(line 3 of bg fld "DVSGS") into NAVSet numberFormat to "0.00"Put NAV*NewS into WorthPut "$ "&Worth into line 1 of cd fld "WorthGL"Put "Worth"&InvNo into wWPut getNum(line 1 of cd fld "WorthGL") into cd fld wW of cd "Entry"Put getNum(cd fld "Vestment") into VestedIF Vested is Empty then Put "0" into VestedPut "Vested"&InvNo into wVPut "GL"&InvNo into wGLPut "PC"&InvNo into wPCIF Vested*1 <> 0 thenSet numberFormat to "0.00"Put "$ "&Vested into cd fld wV of cd "Entry"Put Worth-Vested into GLPut "$ "&GL into line 3 of cd fld "WorthGL"Put line 3 of cd fld "WorthGL" into cd fld wGL of cd "Entry"Set numberFormat to "0.0"Put (GL/Vested)*100 into PCPut PC&"% Investment Return" into line 1 of cd fld "InvPCDVal"PCFSize PC,wPCPut PC&"%" into cd fld wPC of cd "Entry"Set numberFormat to "0.00"elsePut Empty into cd fld wV of cd "Entry"IF getNum(line 1 of cd fld "WorthGL") <> Empty thenSet numberFormat to "0.00"Put "$ "&Worth into line 3 of cd fld "WorthGL"Put line 3 of cd fld "WorthGL" into cd fld wGL of cd "Entry"Put getNum(line 3 of cd fld "WorthGL") into GLSet numberFormat to "0.0"Put (GL/Worth)*100 into PCIF PC contains "NAN" then       -- maybe all zerosPut "N/A% Investment Return" into line 1 of cd fld "InvPCDVal"Set textFont of cd fld wPC of cd "Entry" to GenevaSet textSize of cd fld wPC of cd "Entry" to 9Set textHeight of cd fld wPC of cd "Entry" to 11Put "N/A%" into cd fld wPC of cd "Entry"elsePut PC&"% Investment Return" into line 1 of cd fld "InvPCDVal"PCFSize PC,wPCPut PC&"%" into cd fld wPC of cd "Entry"Set numberFormat to "0.00"end ifelsePut "$ 0.00" into line 3 of cd fld "WorthGL"Put "$ 0.00" into cd fld wGL of cd "Entry"Put "N/A% Investment Return" into line 1 of cd fld "InvPCDVal"Set textFont of cd fld wPC of cd "Entry" to GenevaSet textSize of cd fld wPC of cd "Entry" to 9Set textHeight of cd fld wPC of cd "Entry" to 11Put "N/A%" into cd fld wPC of cd "Entry"end ifend ifelseIF getNum(line 1 of cd fld "WorthGL") <> Empty thenPut Empty into line 1 of cd fld "WorthGL"Put "Worth"&InvNo into wWPut Empty into cd fld wW of cd "Entry"end ifPut getNum(cd fld "Vestment") into VestedIF Vested <> Empty thenPut "Vested"&InvNo into wVSet numberFormat to "0.00"Put "$ "&Vested into cd fld wV of cd "Entry"IF Vested*1 <> 0 thenPut "$ -"&Vested into line 3 of cd fld "WorthGL"else Put "$ 0.00" into line 3 of cd fld "WorthGL"Put "GL"&InvNo into wGLPut line 3 of cd fld "WorthGL" into cd fld wGL of cd "Entry"Put getNum(line 3 of cd fld "WorthGL") into GLPut "PC"&InvNo into wPCSet numberFormat to "0.0"Put (GL/Vested)*100 into PCIF PC contains "NAN" then     -- maybe all zerosSet textFont of cd fld wPC of cd "Entry" to GenevaSet textSize of cd fld wPC of cd "Entry" to 9Set textHeight of cd fld wPC of cd "Entry" to 11Put "N/A%" into cd fld wPC of cd "Entry"Put "N/A% Investment Return" into line 1 of cd fld "InvPCDVal"elsePut PC&"% Investment Return" into line 1 of cd fld "InvPCDVal"PCFSize PC,wPCPut PC&"%" into cd fld wPC of cd "Entry"end ifSet numberFormat to "0.00"elsePut "Vested"&InvNo into wVPut Empty into cd fld wV of cd "Entry"Put Empty into cd fld "Vestment"Put "GL"&InvNo into wGLPut Empty into cd fld wGL of cd "Entry"Put Empty into line 3 of cd fld "WorthGL"Put "PC"&InvNo into wPCPut Empty into cd fld wPC of cd "Entry"Put Empty into line 1 of cd fld "InvPCDVal"end ifend ifHide cd fld S1Put Empty into cd fld S1end UpdateInvCard</script>
  261.     </part>
  262.     <part>
  263.         <id>54</id>
  264.         <type>button</type>
  265.         <visible> <true /> </visible>
  266.         <reserved5> 0 </reserved5>
  267.         <reserved4> 0 </reserved4>
  268.         <reserved3> 0 </reserved3>
  269.         <reserved2> 0 </reserved2>
  270.         <reserved1> 0 </reserved1>
  271.         <enabled> <true /> </enabled>
  272.         <rect>
  273.             <left>438</left>
  274.             <top>132</top>
  275.             <right>470</right>
  276.             <bottom>149</bottom>
  277.         </rect>
  278.         <style>transparent</style>
  279.         <showName> <false /> </showName>
  280.         <highlight> <false /> </highlight>
  281.         <autoHighlight> <true /> </autoHighlight>
  282.         <sharedHighlight> <true /> </sharedHighlight>
  283.         <family>0</family>
  284.         <titleWidth>0</titleWidth>
  285.         <icon>92</icon>
  286.         <textAlign>center</textAlign>
  287.         <font>Chicago</font>
  288.         <textSize>12</textSize>
  289.         <textStyle>plain</textStyle>
  290.         <name>EXP</name>
  291.         <script>on mouseUpGlobal IFlag,TFlag,DJFlag,wKindExport,wKindPrint,TABReqPut Empty into wKindExportPut Empty into wKindPrintPut return into CRIF TFlag is "Yes" thenIF Hilite of cd btn "GT Update" is True thenSend "mouseUp" to cd btn "GT Update"end ifPut Dialoger("PEDJIMHist"&CR&"Color green"&CR&"DefaultItem 2"¬¨&CR&"on ExpRelay"¬¨, "6‚óäStyledText Chicago,12,M"&CR&"PRINTING or EXPORTING a GRAND TOTALS HISTORY DATABASE TEXT FILE"¬¨, "7‚óäStyledText Geneva,10"&CR&"¬† This feature will either create about a 10K Text File (with or w/o tabs) of the entire contents of this Grand Totals History window or Print the entire contents of the Grand"¬¨, "8‚óäStyledText Geneva,10"&CR&"Totals History window.  You can find the exported text file where HyperCard is located under name "&quote&"Grand Totals w or w/o Tabs"&quote&".  If you leave the exported text file where its"¬¨, "9‚óäStyledText Geneva,10"&CR&"located, the file will be written-over continuously to contain the lastest data seen here."¬¨, "10‚óäStyledText Chicago,12,M"&CR&"Select Printing, Exporting or Cancel."¬¨) into dResultelseIF DJFlag <> "Yes" thenIF Hilite of cd btn "UD Update" is True thenSend "mouseUp" to cd btn "UD Update"end ifPut Dialoger("PERegMVHist"&CR&"Color green"&CR&"DefaultItem 2"¬¨&CR&"on ExpRelay"¬¨, "6‚óäStyledText Chicago,12,M"&CR&"PRINTING or EXPORTING a MARKET and INVESTMENT HISTORY DATABASE TEXT FILE"¬¨, "7‚óäStyledText Geneva,10"&CR&"    This feature will either Print or create (w or w/o Tabs) a Text File (5 to 10K size) of the entire contents in the MARKET History window and/or INVESTMENT History window."¬¨, "8‚óäStyledText Geneva,10"&CR&"You'll find any exported text file where HyperCard is located under the file name of "&quote&"XXX Vestment w or w/o Tabs"&quote&" (XXX being your Investment name).  If you leave the exported text"¬¨, "9‚óäStyledText Geneva,10"&CR&"file where its located, the file will be written-over continuously and contain the lastest data posted here."¬¨, "10‚óäStyledText Geneva,10"&CR&"(1) Select type History:"¬¨, "11‚óäStyledText Geneva,10"&CR&"(2) then either select Printing, Exporting or Cancel."¬¨, "12‚óäStyledText Chicago,12,L"&CR&"PERFORM THE FOLLOWING STEPS:"¬¨, "13‚óäStyledText Geneva,10"&CR&" and/or"¬¨, "14‚óäStyledText Geneva,10"&CR&"(window must be open),"¬¨) into dResultelse -- DJI StuffPut Dialoger("PEDJIMHist"&CR&"Color green"&CR&"DefaultItem 2"¬¨&CR&"on ExpRelay"¬¨, "6‚óäStyledText Chicago,12,M"&CR&"PRINTING or EXPORTING a MARKET INDICATOR HISTORY DATABASE TEXT FILE"¬¨, "7‚óäStyledText Geneva,10"&CR&"     This feature will either create about a 5K Text File (with or w/o Tabs) of the entire contents of the MARKET History window or directly Print the entire contents of the"¬¨, "8‚óäStyledText Geneva,10"&CR&"MARKET History window.  You'll find any exported text file where HyperCard is located with the name "&quote&"XXX Market w or w/o Tabs"&quote&" (XXX being the Market Indicator name)."¬¨, "9‚óäStyledText Geneva,10"&CR&"If you leave the exported text file where its located, the file will be written-over continuously to contain the lastest data posted here."¬¨, "10‚óäStyledText Chicago,12,M"&CR&"Select Printing, Exporting or Cancel."¬¨) into dResultend ifend ifIF first word of dResult is "Error:" thenAnswer dResult with Cancelelse IF line 2 of dResult is "Cancel" then EXIT mouseUpelse IF line 1 of dResult <> Empty then  -- Do File Exportlock screenIF line 4 of dResult is "true" and line 5 of dResult is "true" thenPut "M&I" into wKindExportIF line 15 of dResult is "true" then Put "Yes" into TABReqelse Put "No" into TABRequnlock ScreenExportItEXIT mouseUpend ifIF line 4 of dResult is "true" then Put "M" into wKindExportIF line 5 of dResult is "true" then Put "I" into wKindExportIF IFlag is "Yes" thenIF line 15 of dResult is "true" then Put "Yes" into TABReqelse Put "No" into TABReqelseIF line 11 of dResult is "true" then Put "Yes" into TABReqelse Put "No" into TABReqend ifunlock ScreenExportItEXIT mouseUpelse IF line 3 of dResult <> Empty then  -- Print Itlock screenIF line 4 of dResult is "true" and line 5 of dResult is "true" thenPut "M&I" into wKindPrintunlock ScreendoPrintItEXIT mouseUpend ifIF line 4 of dResult is "true" then Put "M" into wKindPrintIF line 5 of dResult is "true" then Put "I" into wKindPrintunlock ScreendoPrintItEXIT mouseUpend ifend mouseUpon ExpHit dialog,itemHit -- for Print/Export dialogGlobal DJFlag,TFlagIF itemHit = 0 then  --InitializeGet the loc of cd windowAdd 30 to item 1 of itAdd 159 to item 2 of itPut "Loc "&it into HVdChanger dialog&return&HVdChanger dialog, "6‚óäcolor blue"IF TFlag is "Yes" thendChanger dialog,"4‚óäFalse","5‚óäTrue"dChanger dialog,"11‚óäTrue"  --TabselseIF DJFlag is "Yes" thendChanger dialog,"4‚óäTrue","5‚óäFalse"dChanger dialog,"11‚óäTrue"elseIF Hilite of bg btn "History" is false thendChanger dialog,"5‚óäinactivate","14‚óä(window must be open),"else dChanger dialog,"5‚óäactivate","14‚óä"dChanger dialog,"15‚óäTrue"  --Tabsend ifend ifend ifIF itemHit=1 or itemHit=3 thenPut dContents(dialog,4) into I4RPut dContents(dialog,5) into I5RIF I4R is false and I5R is false thenAnswer "¬†¬†¬†¬†¬†Select the type of History first!" with "OK"Send "mouseUp" to bg btn "Exp"end ifend ifIF itemHit=3 then dChanger dialog,"","Dismiss"end ExpHiton ExportItGlobal TFlag,ExpFN,IName,DJFlag,PITFlag,wKindExport,TABReqPut Empty into PITFlagIF TABReq is "Yes" then Put "-w/Tabs" into TYNelse Put "-w/oTabs" into TYNIF TFlag is "Yes" thenPut "Grand Totals "&TYN into ExpFNOpen file ExpFNdoInvExpClose file ExpFNExpFinEXIT ExportItelseIF DJFlag is "Yes" thenPut IName&" Market "&TYN into ExpFNOpen file ExpFNdoMarketExpClose file ExpFNExpFinEXIT ExportItelseIF wKindExport is "I" thenPut IName&" Vestment "&TYN into ExpFNOpen file ExpFNdoInvExpClose file ExpFNExpFinEXIT ExportItelse IF wKindExport is "M" thenPut IName&" Market "&TYN into ExpFNOpen file ExpFNdoMarketExpClose file ExpFNExpFinEXIT ExportItelse IF wKindExport is "M&I" thenPut IName&" Vestment "&TYN into ExpFNOpen file ExpFNdoInvExpIF TABReq is "No" then Write return&return to file ExpFNdoMarketExpClose file ExpFNExpFinEXIT ExportItend ifend ifend ifend ExportIton doPrintItGlobal TFlag,ExpFN,IName,DJFlag,PITFlag,wKindPrintPut Empty into PITFlagIF TFlag is "Yes" thenPrintField "Card Field ID 55",1,36,0,18,0Put "YesI" into PITFlagExpFinEXIT doPrintItelse --0,460,0,45IF DJFlag is "Yes" thenPrintField "Card Field ID 1",1,36,400,18,0Put "YesM" into PITFlagExpFinEXIT doPrintItelseIF wKindPrint is "I" thenPrintField "Card Field ID 55",1,36,0,18,0Put "YesI" into PITFlagelse IF wKindPrint is "M" thenPrintField "Card Field ID 1",1,36,400,18,0Put "YesM" into PITFlagelse IF wKindPrint is "M&I" thenPrintField "Card Field ID 55",1,36,0,18,0PrintField "Card Field ID 1",0,36,400,18,0Put "YesB" into PITFlagend ifExpFinEXIT doPrintItend ifend ifend doPrintIton ExpFinGlobal PITFlagIF PITFlag is Empty thenPut "The Export File has been written!" into cd fld "S1"else IF PITFlag is "YesM" thenPut "Market data has been printed!" into cd fld "S1"else IF PITFlag is "YesI" thenPut "Vestment data has been printed!" into cd fld "S1"else IF PITFlag is "YesB" thenPut "Both types have been printed!" into cd fld "S1"end ifPut Empty into PITFlagIF "ITPHG" is in windows() then Hide window "ITPHG"Show cd fld "S1"Wait 3 secondsHide cd fld "S1"IF "ITPHG" is in windows() then Show window "ITPHG"end ExpFinon doInvExpGlobal TFlag,ExpFN,TABReqIF TABReq is "Yes" thenPut ExpFN into nExpFNDelete last word of nExpFNIF char 1 of nExpFN="I" and char 2 of nExpFN="D" thenPut " "&nExpFN into nExpFNWrite nExpFN&" History with Tabs"&Return to file ExpFNelse Write nExpFN&" History with Tabs"&Return to file ExpFNWrite (justify("",L,50,"-"))&Return to file ExpFNIF TFlag is "Yes" thenPut replaceChar(line 2 of cd fld "Hist Label A","|",TAB) into tempelse Put replaceChar(cd fld "Hist Label A","|",TAB) into tempWrite (trim(temp,"\32","A"))&Return to file ExpFNIF TFlag is "Yes" thenPut replaceChar(cd fld "GTotals","|",",") into tempPut getColumn(temp,"1","1") into temp1Put trim(temp1,"¬¨0-9/,\13","A") into temp1Put getColumn(temp,"2","7") into temp2Put trim(temp2,"¬¨\13.,0-9-","A") into temp2Put insColumn(temp2,temp1,"1") into temp1Write replaceChar(temp1,",",TAB) to file ExpFNelsePut replaceChar(cd fld "Inv History","|",",") into tempPut getColumn(temp,"1","1") into temp1Put trim(temp1,"¬¨0-9/,\13","A") into temp1Put getColumn(temp,"2","7") into temp2Put trim(temp2,"¬¨\13.,0-9-","A") into temp2Put insColumn(temp2,temp1,"1") into temp1Write replaceChar(temp1,",",TAB) to file ExpFNWrite Return to file ExpFNWrite Return to file ExpFNend ifelseIF TFlag is "Yes" then Write cd fld "GTotals" to file ExpFNelse Write cd fld "Inv History" to file ExpFNend ifend doInvExpon doMarketExpGlobal ExpFN,IName,TABReqIF TABReq is "Yes" thenIF char 1 of IName="I" and char 2 of IName="D" thenPut " "&IName into nINameWrite nIName&" Market History with Tabs"&Return to file ExpFNelse Write IName&" Market History with Tabs"&Return to file ExpFNWrite (justify("",L,25,"-"))&Return to file ExpFNWrite "DATE"&TAB&"MS"&TAB&"Value"&Return to file ExpFNWrite replaceChar(cd fld ID 1," ",TAB) to file ExpFNelse --no tabsWrite cd fld ID 1 to file ExpFNend ifend doMarketExp</script>
  292.     </part>
  293.     <part>
  294.         <id>55</id>
  295.         <type>button</type>
  296.         <visible> <true /> </visible>
  297.         <reserved5> 0 </reserved5>
  298.         <reserved4> 0 </reserved4>
  299.         <reserved3> 0 </reserved3>
  300.         <reserved2> 0 </reserved2>
  301.         <reserved1> 0 </reserved1>
  302.         <enabled> <true /> </enabled>
  303.         <rect>
  304.             <left>3</left>
  305.             <top>1</top>
  306.             <right>72</right>
  307.             <bottom>20</bottom>
  308.         </rect>
  309.         <style>roundrect</style>
  310.         <showName> <true /> </showName>
  311.         <highlight> <false /> </highlight>
  312.         <autoHighlight> <true /> </autoHighlight>
  313.         <sharedHighlight> <true /> </sharedHighlight>
  314.         <family>0</family>
  315.         <titleWidth>0</titleWidth>
  316.         <icon>0</icon>
  317.         <textAlign>center</textAlign>
  318.         <font>Chicago</font>
  319.         <textSize>12</textSize>
  320.         <textStyle>plain</textStyle>
  321.         <name>Compare</name>
  322.         <script>Choice FunctionChoiceHitChoiceRelay is in bgon mouseUpGlobal PFlag,CLFTFlag,CCFlag,CCFlag2,CIName,LPT,LGT,HM,RGT,SDFlag,SDSpan,¬¨SDLL,DLL,DoClear,INameSet cursor to 4IF Hilite of bg btn "Exp Hist" is True then ¬¨Send "mouseUp" to bg btn "Exp Hist"IF PFlag is empty thenPut "Not enough data for"&return&"comparisons yet!" into cd fld S1Show cd fld S1wait 4 secondsHide cd fld S1EXIT mouseUpend ifPut getDate(line 1 of bg fld "DVSGS") into PDPut word 1 of line 7 of bg fld "DVSGS" into HMIF HM+1>last word of line 7 of bg fld "DVSGS" or ¬¨(SDFlag<>"Yes" and PD<>line 13 of fld "DVSGS") thenIF "ITPHG" is in windows() then Hide window "ITPHG"Put quote&"Plot"&quote&" Graph first."&return&¬¨"Then do "&quote&"Compare"&quote&"!" into cd fld S1Show cd fld S1wait 4 secondsHide cd fld S1IF "ITPHG" is in windows() then Show window "ITPHG"EXIT mouseUpend ifIF SDSpan<>empty thendChanger "SDates","0‚óäDismiss"Put empty into SDSpanlock screenunlock screenend ifIF CLFTFlag <> "Yes" thenlock screenPut short name of this cd into fHPut "Yes" into CCFlag  --bypass openCard handlerPut "Yes" into CCFlag2 --needed to defeat automation in intro cdGo cd "Intro"     -- automatically updates Comp List in Intro cdGo cd fHPut Empty into CCFlagPut Empty into CCFlag2unlock screenend ifIF LPT is "Market" then Put "DJ Indust"&return&"DJ Trans"&¬¨return&"NYCI"&return into theCompListGet cd fld "Inv Names" of cd "Intro"Delete line 1 of itPut it after theCompListIF SDFlag is "Yes" thenPut line 14 of bg fld "DVSGS" into SDLLIF "Market" is in LGT then Put number of lines of cd fld ID 1 into xLLelse Put number of lines of cd fld "Inv History" into xLLPut xLL-SDLL into DLLend if --Put xLL into DLLREPEAT with X = 1 to number of lines of theCompListPut line X of theCompList into wINameIF LPT is "Market" then Put wIName&" Inv Data" into wIDataelse Put "Inv History" into wIDataPut number of lines of cd fld wIData of cd wIName into MHLLPut getDate(word 1 of last line of cd fld wIData of cd wIName) into LLPDIF SDFlag is "Yes" then Put MHLL-DLL-1 into MHLLIF MHLL‚â•HM and PD=LLPD then NEXT Repeatelse Put "(" before line X of theCompListend REPEATIF LPT is "Market" thenGet Choice("Select a Market Indicator or an Investment to perform a Market Value comparison!",theCompList)else Get Choice("Select another Investment to perform a comparison of the "&¬¨RGT&" History!",theCompList)IF it is empty then EXIT to HyperCardelsePut it into CINamePut "Yes" into DoClearComparePlotSeqend ifend mouseUpfunction Choice txt,theCompListPut return into CRPut sortList(theCompList,return) into theCompListGet the loc of cd windowAdd 8 to item 1 of itAdd 30 to item 2 of itPut "Loc "&it into HVPut Dialoger("Choice"&CR&"Color green"&CR&HV&CR&"on ChoiceHit"¬¨, txt¬¨, "userList Meta"&CR&theCompList¬¨) into dResultIF first word of dResult is "Error:" thenAnswer dResult with CancelEXIT to HyperCardelselock screenunlock screenIF line 2 of dResult is "Cancel" thenreturn EmptyEXIT Choiceend ifGet line 3 of dResultIF it is Empty then return itelse return line it of theCompListend ifend choice</script>
  323.     </part>
  324.     <part>
  325.         <id>56</id>
  326.         <type>button</type>
  327.         <visible> <true /> </visible>
  328.         <reserved5> 0 </reserved5>
  329.         <reserved4> 0 </reserved4>
  330.         <reserved3> 0 </reserved3>
  331.         <reserved2> 0 </reserved2>
  332.         <reserved1> 0 </reserved1>
  333.         <enabled> <true /> </enabled>
  334.         <rect>
  335.             <left>76</left>
  336.             <top>1</top>
  337.             <right>251</right>
  338.             <bottom>20</bottom>
  339.         </rect>
  340.         <style>roundrect</style>
  341.         <showName> <true /> </showName>
  342.         <highlight> <false /> </highlight>
  343.         <autoHighlight> <true /> </autoHighlight>
  344.         <sharedHighlight> <true /> </sharedHighlight>
  345.         <family>0</family>
  346.         <titleWidth>0</titleWidth>
  347.         <icon>0</icon>
  348.         <textAlign>center</textAlign>
  349.         <font>Chicago</font>
  350.         <textSize>12</textSize>
  351.         <textStyle>plain</textStyle>
  352.         <name>Return to Master Entries</name>
  353.         <script>on mouseUpGlobal IName,wMENAV,DJFlag,OldV,GTChange,TFlag,SDSpanIF Hilite of bg btn "PC Calc" is True then ¬¨Send "mouseUp" to bg btn "PC Calc"IF dContents() is not 0 thendChanger it, "0‚óäDismiss"Put empty into SDSpanend ifSet cursor to 4IF "ITPHG" is in windows() then close window "ITPHG"lock screenIF TFlag is "Yes" thenIF Hilite of bg btn "Help" is True then ¬¨Send "mouseUp" to bg btn "Help"IF Hilite of bg btn "Exp Act" is True then ¬¨Send "mouseUp" to bg btn "Exp Act"Put empty into GTChange                  --????Go cd "Entry"unlock screen with barn door closeEXIT mouseUpend ifIF Hilite of bg btn "Exp Hist" is True then ¬¨Send "mouseUp" to bg btn "Exp Hist"IF Hilite of bg btn "Exp Act" is True then ¬¨Send "mouseUp" to bg btn "Exp Act"Go cd "Entry"unlock screen with barn door closeIF DJFlag is "Yes" thenShow bg btn "History" of cd INameShow bg btn "Help" of cd INamePut empty into DJFlagEXIT mouseUpend ifPut last word of cd fld "Vestment" of cd IName into tempIF temp is Empty then Put Empty into OldVSend "closeField" to cd fld wMENAVend mouseUp</script>
  354.     </part>
  355.     <part>
  356.         <id>57</id>
  357.         <type>field</type>
  358.         <visible> <true /> </visible>
  359.         <dontWrap> <false /> </dontWrap>
  360.         <dontSearch> <false /> </dontSearch>
  361.         <sharedText> <false /> </sharedText>
  362.         <fixedLineHeight> <true /> </fixedLineHeight>
  363.         <autoTab> <false /> </autoTab>
  364.         <lockText> <true /> </lockText>
  365.         <rect>
  366.             <left>0</left>
  367.             <top>37</top>
  368.             <right>114</right>
  369.             <bottom>129</bottom>
  370.         </rect>
  371.         <style>transparent</style>
  372.         <autoSelect> <false /> </autoSelect>
  373.         <showLines> <false /> </showLines>
  374.         <wideMargins> <false /> </wideMargins>
  375.         <multipleLines> <false /> </multipleLines>
  376.         <reservedFamily> 0 </reservedFamily>
  377.         <titleWidth>0</titleWidth>
  378.         <icon>0</icon>
  379.         <textAlign>center</textAlign>
  380.         <font>Geneva</font>
  381.         <textSize>9</textSize>
  382.         <textStyle>bold</textStyle>
  383.         <textHeight>13</textHeight>
  384.         <name>DVSGS</name>
  385.         <script></script>
  386.     </part>
  387.     <part>
  388.         <id>58</id>
  389.         <type>button</type>
  390.         <visible> <true /> </visible>
  391.         <reserved5> 0 </reserved5>
  392.         <reserved4> 0 </reserved4>
  393.         <reserved3> 0 </reserved3>
  394.         <reserved2> 0 </reserved2>
  395.         <reserved1> 0 </reserved1>
  396.         <enabled> <true /> </enabled>
  397.         <rect>
  398.             <left>22</left>
  399.             <top>132</top>
  400.             <right>75</right>
  401.             <bottom>149</bottom>
  402.         </rect>
  403.         <style>roundrect</style>
  404.         <showName> <true /> </showName>
  405.         <highlight> <false /> </highlight>
  406.         <autoHighlight> <true /> </autoHighlight>
  407.         <sharedHighlight> <true /> </sharedHighlight>
  408.         <family>0</family>
  409.         <titleWidth>0</titleWidth>
  410.         <icon>0</icon>
  411.         <textAlign>center</textAlign>
  412.         <font>Chicago</font>
  413.         <textSize>12</textSize>
  414.         <textStyle>plain</textStyle>
  415.         <name>Plot</name>
  416.         <script>on mouseUpGlobal LPT,HM,DoClear,SDFlag,DoClear,SDSpanGet short name of meIF it is "Clear" thenDoCGSet name of bg btn ID 58 to "Plot"Show cd fld "Inv Activity"Show cd fld "Label 2"else --PlotShow cd fld "Inv Activity"Show cd fld "Label 2"IF SDSpan<>empty thendChanger "SDates","0‚óäDismiss"Put empty into SDSpanlock screenunlock screenend ifIF DoClear<>empty then DoCGHide bg fld "SD"Put bg fld "AW" into HMPut empty into SDFlagPut empty into line 11 of bg fld "DVSGS"IF LPT is "Market" then MarketPlotSeq else HistoryPlotSeqend ifend mouseUpon DoCGGlobal TFlag,DoClearset cursor to 4lock screenput empty into fld 1choose select toolIF TFlag is "Yes" then Drag from 0,0 to 512,336else Drag from 0,0 to 512,342doMenu "Clear Picture"choose browse toolput empty into DoClearunlock screenIF ITPHG is in windows() then close window ITPHGend DoCG</script>
  417.     </part>
  418.     <part>
  419.         <id>60</id>
  420.         <type>field</type>
  421.         <visible> <true /> </visible>
  422.         <dontWrap> <false /> </dontWrap>
  423.         <dontSearch> <false /> </dontSearch>
  424.         <sharedText> <false /> </sharedText>
  425.         <fixedLineHeight> <true /> </fixedLineHeight>
  426.         <autoTab> <false /> </autoTab>
  427.         <lockText> <true /> </lockText>
  428.         <rect>
  429.             <left>275</left>
  430.             <top>133</top>
  431.             <right>305</right>
  432.             <bottom>147</bottom>
  433.         </rect>
  434.         <style>transparent</style>
  435.         <autoSelect> <false /> </autoSelect>
  436.         <showLines> <false /> </showLines>
  437.         <wideMargins> <false /> </wideMargins>
  438.         <multipleLines> <false /> </multipleLines>
  439.         <reservedFamily> 0 </reservedFamily>
  440.         <titleWidth>0</titleWidth>
  441.         <icon>0</icon>
  442.         <textAlign>center</textAlign>
  443.         <font>Geneva</font>
  444.         <textSize>10</textSize>
  445.         <textStyle>plain</textStyle>
  446.         <textHeight>13</textHeight>
  447.         <name>AW</name>
  448.         <script></script>
  449.     </part>
  450.     <part>
  451.         <id>62</id>
  452.         <type>button</type>
  453.         <visible> <true /> </visible>
  454.         <reserved5> 0 </reserved5>
  455.         <reserved4> 0 </reserved4>
  456.         <reserved3> 0 </reserved3>
  457.         <reserved2> 0 </reserved2>
  458.         <reserved1> 0 </reserved1>
  459.         <enabled> <true /> </enabled>
  460.         <rect>
  461.             <left>259</left>
  462.             <top>133</top>
  463.             <right>276</right>
  464.             <bottom>147</bottom>
  465.         </rect>
  466.         <style>transparent</style>
  467.         <showName> <false /> </showName>
  468.         <highlight> <false /> </highlight>
  469.         <autoHighlight> <true /> </autoHighlight>
  470.         <sharedHighlight> <true /> </sharedHighlight>
  471.         <family>0</family>
  472.         <titleWidth>0</titleWidth>
  473.         <icon>0</icon>
  474.         <textAlign>center</textAlign>
  475.         <font>Chicago</font>
  476.         <textSize>12</textSize>
  477.         <textStyle>plain</textStyle>
  478.         <name></name>
  479.         <script>on mouseDownGlobal MGW,LGT,LPT,PFlag,DoClear,SDFlagIF LPT is "History" then put "364" into maxFSizeelse Put "431" into maxFSizeREPEAT until the mouse is UpIF bg fld "AW"<MGW-1 and bg fld "AW"<maxFSize then Add 1 to bg fld "AW"end REPEATIF word 1 of line 7 of bg fld "DVSGS" = bg fld "AW" ¬¨and LGT = short name of bg btn ID 65 ¬¨and PFlag = "OK" then         --means its what your currently viewingSet name of bg btn ID 58 to "Clear"IF SDFlag is "yes" then Show bg fld "SD"Put empty into DoClearelseSet name of bg btn ID 58 to "Plot"IF SDFlag is "yes" then Hide bg fld "SD"Put "yes" into DoClearend if--2 wks min to plot anythingIF bg fld "AW">1 and PFlag<>empty then Show bg btn ID 58end mouseDown</script>
  480.     </part>
  481.     <part>
  482.         <id>63</id>
  483.         <type>button</type>
  484.         <visible> <true /> </visible>
  485.         <reserved5> 0 </reserved5>
  486.         <reserved4> 0 </reserved4>
  487.         <reserved3> 0 </reserved3>
  488.         <reserved2> 0 </reserved2>
  489.         <reserved1> 0 </reserved1>
  490.         <enabled> <true /> </enabled>
  491.         <rect>
  492.             <left>305</left>
  493.             <top>133</top>
  494.             <right>322</right>
  495.             <bottom>147</bottom>
  496.         </rect>
  497.         <style>transparent</style>
  498.         <showName> <false /> </showName>
  499.         <highlight> <false /> </highlight>
  500.         <autoHighlight> <true /> </autoHighlight>
  501.         <sharedHighlight> <true /> </sharedHighlight>
  502.         <family>0</family>
  503.         <titleWidth>0</titleWidth>
  504.         <icon>0</icon>
  505.         <textAlign>center</textAlign>
  506.         <font>Chicago</font>
  507.         <textSize>12</textSize>
  508.         <textStyle>plain</textStyle>
  509.         <name></name>
  510.         <script>on mouseDownGlobal LGT,PFlag,DoClear,SDFlagREPEAT until the mouse is upIF bg fld "AW">1 then Subtract 1 from bg fld "AW"end REPEATIF word 1 of line 7 of bg fld "DVSGS" = bg fld "AW" ¬¨and LGT = short name of bg btn ID 65 ¬¨and PFlag = "OK" then         --means its what your currently viewingSet name of bg btn ID 58 to "Clear"IF SDFlag is "yes" then Show bg fld "SD"Put empty into DoClearelseSet name of bg btn ID 58 to "Plot"Put "yes" into DoClearIF SDFlag is "yes" then Hide bg fld "SD"end if--2 wks min to plot anythingIF bg fld "AW"<2 then Hide bg btn ID 58end mouseDown</script>
  511.     </part>
  512.     <part>
  513.         <id>64</id>
  514.         <type>button</type>
  515.         <visible> <true /> </visible>
  516.         <reserved5> 0 </reserved5>
  517.         <reserved4> 0 </reserved4>
  518.         <reserved3> 0 </reserved3>
  519.         <reserved2> 0 </reserved2>
  520.         <reserved1> 0 </reserved1>
  521.         <enabled> <true /> </enabled>
  522.         <rect>
  523.             <left>361</left>
  524.             <top>132</top>
  525.             <right>434</right>
  526.             <bottom>149</bottom>
  527.         </rect>
  528.         <style>shadow</style>
  529.         <showName> <true /> </showName>
  530.         <highlight> <false /> </highlight>
  531.         <autoHighlight> <true /> </autoHighlight>
  532.         <sharedHighlight> <true /> </sharedHighlight>
  533.         <family>0</family>
  534.         <titleWidth>0</titleWidth>
  535.         <icon>0</icon>
  536.         <textAlign>center</textAlign>
  537.         <font>Chicago</font>
  538.         <textSize>12</textSize>
  539.         <textStyle>plain</textStyle>
  540.         <name>Options</name>
  541.         <script>DoSDates  -- Display Plot Specific Dates floating dialogSDHit     -- Dialog Hit handler to Plot Specific Dates (relayed fm bg)on mouseDownGlobal TFlag,SDSpan,CompLabels,ITPColor,PFlagIF line 21 of bg fld "DVSGS" is "Yes" then Put "Yes" into CompLabelsIF CompLabels is "Yes" then Put "Disable Compare Labels" into M1else Put "Enable Compare Labels" into M1IF TFlag is "Yes" then Put "(" before M1IF PFlag<>empty then Put "\Print the Graph" into M3else Put "\(Print the Graph" into M3IF item 5 of listMonitors() is "Color" and item 6 of listMonitors() ‚â•4 thenIF ITPColor is "Yes" then Put "\Disable Color Graphs" into M4else Put "\Enable Color Graphs" into M4elsePut "\(Enable Color Graphs" into M4Put empty into ITPColorend ifGet PopList("\"&M1&",\(-,Plot Specific Dates...,\(-,"&M3&",\(-,"&M4&"",311,149,0)IF it is 0 then EXIT mouseDownelse IF it is 1 thenIF CompLabels is "Yes" then Put empty into CompLabelselse Put "Yes" into CompLabelselse IF it is 3 and SDSpan is empty then DoSDateselse IF it is 5 then DoPrintGraphelse IF it is 7 thenIF ITPColor is "Yes" then put empty into ITPColor else Put "Yes" into ITPColorend ifend mouseDownon DoPrintGraphGlobal IFlag,TFlagIF IFlag is "Yes" then Put (line 1 of cd fld "label 1")&&"Investment Plot" into L1else IF TFlag is "Yes" then Put "Grand Totals Plot" into L1else Put (line 1 of cd fld "label 1")&&"Plot" into L1Put "on "&the short date&" at "&the long time into L2lock screendomenu "New Field"Put the number of cd flds into wfldchoose browse toolset style of cd fld wfld to opaqueset rect of cd fld wfld to 0,0,512,151set textalign of cd fld wfld to centerPut L1 into line 8 of cd fld wfldPut L2 into line 9 of cd fld wflddomenu "Print Card"Select cd fld wflddomenu "Clear Field"choose browse toolunlock screenend DoPrintGraphon DoSDatesGlobal PFlag,TFlag,SDFD,SDTD,SDSpan,SDED,SDLD,SDFlag,LPT,RGTSet cursor to 4IF Hilite of bg btn "Exp Hist" is True then ¬¨Send "mouseUp" to bg btn "Exp Hist"IF PFlag is empty thenPut "Not enough data for"&return&"plotting by dates!" into cd fld S1Show cd fld S1wait 4 secondsHide cd fld S1EXIT DoSDatesend ifIF line 12 of bg fld DVSGS is empty thenPut "To Plot by Dates"&return&quote&"Plot"&quote¬¨&" Graph first." into cd fld S1Show cd fld S1wait 4 secondsHide cd fld S1EXIT DoSDatesend ifIF hilite of bg btn "PC Calc" is true then ¬¨Send "mouseUp" to bg btn "PC Calc"    --will dismiss percentage dialogPut getDate(line 12 of bg fld DVSGS) into SDFDPut getDate(line 13 of bg fld DVSGS) into SDTDIF LPT is "Market" thenPut getDate(word 1 of first line of cd fld ID 1) into SDEDPut getDate(word 1 of last line of cd fld ID 1) into SDLDelseIF TFlag is "Yes" thenPut getDate(word 1 of first line of cd fld "GTotals") into SDEDPut getDate(word 1 of last line of cd fld "GTotals") into SDLDelsePut getDate(word 1 of first line of cd fld "Inv History") into SDEDPut getDate(word 1 of last line of cd fld "Inv History") into SDLDend ifend ifPut SDFD into tSDFDConvert tSDFD to secondsPut SDED into tSDEDConvert tSDED to secondsIF tSDFD<tSDED or tSDED is empty thenIF "ITPHG" is in windows() then Hide window "ITPHG"IF tSDED is empty thenPut "No "&RGT&return&"data to "&quote&"Plot"&quote¬¨&" ?" into cd fld S1else Put "To Plot by Dates"&return&quote&"Plot"&quote¬¨&" Graph first." into cd fld S1Show cd fld S1wait 4 secondsHide cd fld S1IF "ITPHG" is in windows() then Show window "ITPHG"EXIT DoSDatesend ifPut getNum(word 1 of line 7 of bg fld DVSGS) into SDSpanPut return into CRPut Dialoger("SDates"&CR&"on SDRelay"&CR&"float"¬¨, "3‚óäPictButton 1,1"¬¨                         --FDD pic 5851, "4‚óäPictButton 1,1"¬¨                         --FDU pic 8031, "5‚óäStyledText Geneva,10,bM."&CR&SDFD¬¨   --Start Date, "6‚óäPictButton 1,1"¬¨                         --TDD pic 29920, "7‚óäPictButton 1,1"¬¨                         --TDU pic 8188, "8‚óäStyledText Geneva,10,bM."&CR&SDTD¬¨   --Stop Date, "9‚óäStyledText Geneva,10,bM."&CR&SDSpan¬¨ --Span Weeks, "10‚óäStyledText Geneva,10,bM."&CR&last word of line 7 of bg fld DVSGS¬¨, "11‚óäStyledText Geneva,10,M."¬¨, "12‚óäStyledText Geneva,10,bM."¬¨, "13‚óäStyledText Geneva,10,bM."¬¨, "14‚óäStyledText Geneva,10,M."¬¨, "15‚óäStyledText Geneva,10,L."¬¨) into dResultIF word 1 of dResult is "Error:" thenAnswer dResult with CancelPut empty into SDSpanEXIT DoSDatesend ifend DoSDateson SDHit dialog,itemHitGlobal LPT,SDFD,SDTD,SDSpan,SDED,SDLD,SDFlag,SDLL,HM,DoClear,TFlagPut return into CRGet the loc of cd windowAdd 1 to item 1 of itAdd 84 to item 2 of itPut "Loc "&it into HVIF LPT is "History" then put "364" into maxFSizeelse Put "431" into maxFSizeIF itemHit= -1 then                -- Close BoxPut empty into SDSpanelse IF itemHit=0 then             -- Initialize dialog before viewingdChanger dialog,"0‚óä"&HV&CR&"DefaultItem 0"dChanger dialog,"11‚óäcolor green","14‚óäcolor blue","15‚óäcolor blue","9‚óäcolor red","10‚óäcolor red"dChanger dialog,"1‚óäNoDismiss","5‚óäcolor cyan","8‚óäcolor cyan"else IF itemHit=1 then             -- btn "Plot It"Put trunc(SDSpan) into HMIF TFlag is "Yes" then Put "GTotals" into wfelseIF LPT is "Market" then Put short name of cd fld ID 1 into wfelse Put "Inv History" into wfend ifPut item 1 of find(cd fld wf,SDTD,"word","exact") into SDLLIF SDLL=0 or SDLL is empty thenAnswer "Somebody's played with the posted "&quote&"DATES"&quote&"..."Answer "Can't find "&quote&"Plot Stop Date"&quote¬¨&" in "&quote&LPT&quote&" data..."Answer "Check for that exact date in the "&LPT&" data."Answer "... or try to re-Plot last "&HM&" weeks of data!"Set name of bg btn ID 58 to "Plot"Put "Yes" into DoClearPut empty into SDSpanIF SDFlag is "Yes" then Hide bg fld "SD"dChanger dialog,"0‚óäHide"IF LPT is "History" and hilite of bg btn "History"<>true thenSend "mouseUp" to bg btn "History"else Send "mouseUp" to bg btn "Exp Hist"EXIT SDHitend ifShow cd fld "Inv Activity"Show cd fld "Label 2"Send "DoCG" to bg btn ID 58            --mandatory ClearSet name of bg btn ID 58 to "Plot"Put "Yes" into DoClearPut "Plot Span" into bg fld "SD"Show bg fld "SD"Put HM into bg fld "AW"Put "Yes" into SDFlagPut HM into word 1 of line 7 of bg fld DVSGSIF LPT is "Market" then MarketPlotSeq else HistoryPlotSeqelse IF itemHit=3 then                   -- pic "FromDataDown"REPEAT until SDFD=SDED or SDSpan=maxFSizeIF the mouseClick then Exit REPEATConvert SDFD to secondsSubtract 604800 from SDFDConvert SDFD to short datedChanger dialog,"5‚óä"&SDFDAdd 1 to SDSpandChanger dialog,"9‚óä"&SDSpanend REPEATelse IF itemHit=4 then                   -- pic "FromDateUp"REPEAT until SDFD=SDTD or SDSpan=2IF the mouseClick then Exit REPEATConvert SDFD to dateItemsAdd 7 to item 3 of SDFDConvert SDFD to datedChanger dialog,"5‚óä"&SDFDSubtract 1 from SDSpandChanger dialog,"9‚óä"&SDSpanend REPEATelse IF itemHit=6 then                   -- pic "ToDateDown"REPEAT until SDTD=SDFD or SDSpan=2IF the mouseClick then Exit REPEATConvert SDTD to secondsSubtract 604800 from SDTDConvert SDTD to short datedChanger dialog,"8‚óä"&SDTDSubtract 1 from SDSpandChanger dialog,"9‚óä"&SDSpanend REPEATelse IF itemHit=7 then                   -- pic "ToDateUp"REPEAT until SDTD=SDLD or SDSpan=maxFSizeIF the mouseClick then Exit REPEATConvert SDTD to dateItemsAdd 7 to item 3 of SDTDConvert SDTD to datedChanger dialog,"8‚óä"&SDTDAdd 1 to SDSpandChanger dialog,"9‚óä"&SDSpanend REPEATend ifend SDHit</script>
  542.     </part>
  543.     <part>
  544.         <id>65</id>
  545.         <type>button</type>
  546.         <visible> <true /> </visible>
  547.         <reserved5> 0 </reserved5>
  548.         <reserved4> 0 </reserved4>
  549.         <reserved3> 0 </reserved3>
  550.         <reserved2> 0 </reserved2>
  551.         <reserved1> 0 </reserved1>
  552.         <enabled> <true /> </enabled>
  553.         <rect>
  554.             <left>78</left>
  555.             <top>132</top>
  556.             <right>208</right>
  557.             <bottom>149</bottom>
  558.         </rect>
  559.         <style>shadow</style>
  560.         <showName> <true /> </showName>
  561.         <highlight> <false /> </highlight>
  562.         <autoHighlight> <true /> </autoHighlight>
  563.         <sharedHighlight> <true /> </sharedHighlight>
  564.         <family>0</family>
  565.         <titleWidth>0</titleWidth>
  566.         <icon>0</icon>
  567.         <textAlign>center</textAlign>
  568.         <font>Chicago</font>
  569.         <textSize>12</textSize>
  570.         <textStyle>plain</textStyle>
  571.         <name>Market Values</name>
  572.         <script>on mouseDownGlobal DJFlag,TFlag,IFlag,RGT,LGT,wRMN,LPT,PFlag,InvNo,MGW,DoClear,¬¨SDFlagIF DJFlag is "Yes" thenGet PopList("\Market Values",86,149,0)else IF TFLag is "Yes" thenGet PopList("\Total Worth,Total Investment,Total Inv & Worth,Total Gain/Loss,Wkly % of Return,Wkly G/L Change,Wkly % of Change",75,149,0)else IF IFLag is "Yes" thenGet PopList("\Market Values,My Investment,Shares Owned,My Worth,Inv & Worth,Gain/Loss,% of Return",83,149,0)elseanswer "Somethings not right here! I'll reset things."lock screenGo cd "Entry"IF InvNo <> Empty thenSend "SRGoTo" to cd "Entry"unlock screenflash 2Put "Things are OK now!"&return&"Reselect the Menu." into cd fld S1Show cd fld S1wait 4 secondshide cd fld S1elseunlock screenanswer "Not successful!  Reselect the "&quote&"Go To"&quote&" button."end ifEXIT mouseDownend ifIF it is 0 then EXIT mouseDownelseIF TFlag is "Yes" thenIF it is 1 then Put "Total Worth" into RGTelse IF it is 2 then Put "Total Investment" into RGTelse IF it is 3 then Put "Total Inv & Worth" into RGTelse IF it is 4 then Put "Total Gain/Loss" into RGTelse IF it is 5 then Put "Wkly % of Return" into RGTelse IF it is 6 then Put "Wkly G/L Change" into RGTelseIF it is 7 then Put "Wkly % of Change" into RGTend ifPut "History" into LPTPut number of lines of cd fld "GTotals" into MHLLelse --Inv Market or HistoryIF it is 1 then Put "Market Values" into RGTelse IF it is 2 then Put "My Investment" into RGTelse IF it is 3 then Put "Shares Owned" into RGTelse IF it is 4 then Put "My Worth" into RGTelse IF it is 5 then Put "Inv & Worth" into RGTelse IF it is 6 then Put "Gain/Loss" into RGTelse IF it is 7 then Put "% of Return" into RGTIF it >1 thenPut "History" into LPTPut number of lines of cd fld "Inv History" into MHLLelsePut "Market" into LPTPut number of lines of cd fld ID 1 into MHLLend ifend ifPut it into wRMNIF MHLL‚â§2 thenShow cd fld S1Put "Not enough data"&return&"for Plotting yet!" into cd fld S1Hide bg btn ID 58wait 3 secondsHide cd fld S1elsePut MHLL into last word of line 7 of bg fld "DVSGS"IF MHLL‚⧠bg fld "AW" then Put MHLL-1 into bg fld "AW"Put MHLL into MGWShow bg btn ID 58end ifend ifSet name of bg btn ID 65 to RGTIF LGT<>RGT thenSet name of bg btn ID 58 to "Plot"IF SDFlag is "yes" then Hide bg fld "SD"Put "yes" into DoClearelseIF word 1 of line 7 of bg fld "DVSGS" <> bg fld "AW" ¬¨or PFlag is "must" thenSet name of bg btn ID 58 to "Plot"IF SDFlag is "yes" then Hide bg fld "SD"Put "yes" into DoClearelseSet name of bg btn ID 58 to "Clear"IF SDFlag is "yes" then Show bg fld "SD"Put empty into DoClearend ifend ifend mouseDown</script>
  573.     </part>
  574.     <part>
  575.         <id>68</id>
  576.         <type>field</type>
  577.         <visible> <false /> </visible>
  578.         <dontWrap> <false /> </dontWrap>
  579.         <dontSearch> <false /> </dontSearch>
  580.         <sharedText> <false /> </sharedText>
  581.         <fixedLineHeight> <true /> </fixedLineHeight>
  582.         <autoTab> <false /> </autoTab>
  583.         <lockText> <true /> </lockText>
  584.         <rect>
  585.             <left>211</left>
  586.             <top>132</top>
  587.             <right>260</right>
  588.             <bottom>148</bottom>
  589.         </rect>
  590.         <style>rectangle</style>
  591.         <autoSelect> <false /> </autoSelect>
  592.         <showLines> <false /> </showLines>
  593.         <wideMargins> <false /> </wideMargins>
  594.         <multipleLines> <false /> </multipleLines>
  595.         <reservedFamily> 0 </reservedFamily>
  596.         <titleWidth>0</titleWidth>
  597.         <icon>0</icon>
  598.         <textAlign>center</textAlign>
  599.         <font>Geneva</font>
  600.         <textSize>10</textSize>
  601.         <textStyle>condense</textStyle>
  602.         <textHeight>14</textHeight>
  603.         <name>SD</name>
  604.         <script></script>
  605.     </part>
  606.     <name>Chart Plot</name>
  607.     <script>ExpRelay      -- Export/Print dialog relay back to that Exp btnSDRelay       -- Specific Date plotting dialog relay back to Options btnPCRelay       -- Percentage dialog relay back to % btn (PC Calc)ChoiceHit     -- Compare dialog Hit handlerUDSubR        -- Update SubRoutine for Inv History and GTotals dialogupdateHit     -- Update dialog Hit handlerDoHistExp     -- Expands History windowPrintHelp     -- Prints Help FilesHistoryPlotSeq-- Plot sequence for History dataComparePlotSeq-- Plot sequence for comparing dataMarketPlotSeq -- Plot sequence for market dataEntryNoCheck  -- Entry Number checks (used by all entry flds in program)DetValue      -- Determines Values that go in Inv cd flds after plottingFindNAV       -- Finds (market/Histories windows) data when clking graphHideNAV       -- Hides (market/Histories windows) dataDoPC          -- Does the % CalculationResetCheck    -- does automatic % Calc Reset when requiredPCWarn        -- % Warning mgmt when to little dataOCFieldMgmt   -- Open cd fld MgmtUpDateCheck   -- UpDate Check when Inv cd is openedDoEDFP        -- Enough Data for Plotting messageCCFieldMgmt   -- Close cd fld MgmtUpdateInvCard -- Updates Inv Cd entries (located in the Help (?) Button)on moveWindowIF "ITPHG" is in windows() then set loc of window "ITPHG" to "37,174"end moveWindowon mouseDownInPictureHide window "ITPHG"FindNavend mouseDownInPictureon mouseUpInPictureHideNavshow window "ITPHG"end mouseUpInPictureon ExpRelay dialog,itemHit         -- for Print/Export dialog windowSend "ExpHit dialog,itemHit" to bg btn ID 54 --"Exp"end ExpRelayon SDRelay dialog,itemHit         -- for Specific Dates dialog windowSend "SDHit dialog,itemHit" to bg btn ID 64 --"Options"end SDRelayon PCRelay dialog,itemHit         -- for Specific Dates dialog windowSend "PCHit dialog,itemHit" to bg btn ID 33 --"PC Calc"end PCRelayon ChoiceHit dialog,itemHit        -- for Compare dialog windowdChanger dialog,"3‚óäSingleSelection"&return&"SetDblClick 1"&return¬¨&"Color blue"&return&"KeyScroll"end ChoiceHiton UDSubRGlobal TFlag,typeUpDate,UDAmount,UDL,UDFlag,wUDLC,wUDfld,SDSpanSet cursor to 4IF Hilite of bg btn "PC Calc" is true then ¬¨Send "mouseUp" to bg btn "PC Calc"IF SDSpan<>empty thendChanger "SDates","0‚óäDismiss"Put empty into SDSpanend ifIF TFlag is "Yes" thenPut "GT Update" into wbtnPut "GTotals" into wUDfldelsePut "UD Update" into wbtnPut "Inv History" into wUDfldend ifIF Hilite of cd btn wbtn is False thenSet Hilite of cd btn wbtn to Truelock screenSet hilite of cd btn "Exp IHist" to trueIF TFlag is "Yes" thenSet rect of cd fld wUDfld to 0,43,512,166Put number of lines of cd fld wUDfld into LCIF (LC*12)>121 thenSet the scroll of cd fld wUDfld to (LC*12)-121else Set the scroll of cd fld wUDfld to 0elseSet rect of cd fld wUDfld to 0,31,512,166Put number of lines of cd fld wUDfld into LCIF (LC*12)>133 thenSet the scroll of cd fld wUDfld to (LC*12)-133else Set the scroll of cd fld wUDfld to 0end ifunlock screen--IF "ITPHG" is in windows() then Show window "ITPHG"Put return into CRGet the loc of cd windowAdd 1 to item 1 of itAdd 166 to item 2 of itPut "Loc "&it into HVIF TFlag is "Yes" thenPut cd fld UDGTTxt of cd Intro into HelpTxtPut "Worth" into wNelsePut cd fld UDIdvTxt of cd Intro into HelpTxtPut "Shares" into wNend if-- 1‚óä Do It btn-- 2‚óä Cancel btn-- 3‚óä Reset btnPut Dialoger("Update"&CR&HV&CR&"on updateHit"&CR&"color green"&CR&"DefaultItem 2"¬¨, "4‚óäuserList Geneva,10,NoSelection"&CR&HelpTxt¬¨, "5‚óäTrue"¬¨                            --Investment btn, "6‚óä"&wN¬¨                             --Worth/Shares btn, "7‚óäStyledText Geneva,10,MB."&CR&""¬¨  --Date, "8‚óäStyledText Geneva,10,MB."&CR&""¬¨  --Value, "9‚óäStyledText Geneva,10,P."¬¨   --(1), "10‚óäStyledText Geneva,10,P."¬¨  --(2), "11‚óäStyledText Geneva,10,P."&CR&"(3) Enter the dollar amount    that you want to change here."¬¨, "12‚óäStyledText Geneva,10,PM."¬¨ --(X.XX format), "13‚óäuserBox Black,None,Copy"&CR&"Update"¬¨) into dResultlock screenunlock screenIF first word of dResult is "Error:" thenSet hilite of cd btn wbtn to falseAnswer dResult with CancelIF "ITPHG" is in windows() then Show window "ITPHG"EXIT UDSubRelseIF line 2 of dResult<>empty then  --Cancel UpdatingSet hilite of cd btn wbtn to falseDoHistExp --will show window ITPHGEXIT UDSubRend ifPut number of lines of cd fld wUDfld into wUDLCPut line 7 of dResult into UDDateIF UDDate is Empty thenSet hilite of cd btn "Exp IHist" to falselock screenUDCleanUp TFlag,wUDLC,wUDfldunlock screenAnswer "  You did not enter any "&quote&"Date"&quote&"!  Try it again."Set hilite of cd btn wbtn to falseEXIT UDSubRend ifPut getNum(line 8 of dResult) into UDAmountIF UDAmount is Empty thenSet hilite of cd btn "Exp IHist" to falselock screenUDCleanUp TFlag,wUDLC,wUDfldunlock screenIF line 5 of dResult is true then Put "Dollar Amount" into tempelse Put "number of shares" into tempAnswer "You didn't enter "&quote&temp&quote&" Try Again"Set hilite of cd btn wbtn to falseEXIT UDSubRend ifPut find(cd fld wUDfld,UDDate,"word","exact") into tempIF item 1 of temp is "0" or item 1 of temp is empty thenSet hilite of cd btn "Exp IHist" to falselock screenUDCleanUp TFlag,wUDLC,wUDfldunlock screenAnswer "Can't find a date of "&quote&UDDate&quote&". Try It Again!"Set hilite of cd btn wbtn to falsePut Empty into UDAmountEXIT UDSubRelse Put item 1 of temp into UDL --the starting line of the updateIF line 5 of dResult is true then Put "Investment" into typeUpDateelseIF TFlag is "Yes" then Put "Worth" into typeUpDateelse Put "Shares" into typeUpDateend ifIF "ITPHG" is in windows() then Hide window "ITPHG"UDDoItend ifelseSet hilite of cd btn wbtn to falseDoHistExpPut Empty into typeUpDatePut Empty into UDFlagPut Empty into UDAmountPut Empty into UDLend ifend UDSubRon updateHit dialog,itemHit  --for Update dialog windowGlobal TFlagPut return into CRIF itemHit = 0 then -- Initialize dialog before viewingdChanger dialog,"4‚óäColor Blue"dChanger dialog,"7‚óäSelect"else IF itemHit = 3 then -- btn "Reset Updating"dChanger dialog,"7‚óä"&CR&"Hide"&CR&"Show"dChanger dialog,"8‚óä"&CR&"Hide"&CR&"Show"dChanger dialog,"7‚óäSelect"else IF itemHit = 5 then -- Radio btn "Investment"dChanger dialog,"11‚óä(3) Enter the dollar amount    that you want to change here."else IF itemHit = 6 then -- Radio btn "Shares or Worth"IF TFlag is "Yes" thendChanger dialog,"11‚óä(3) Enter the dollar amount    that you want to change here."else dChanger dialog,"11‚óä(3) Enter the number of shares that you want to change here."end ifend updateHit--itemHit = 1 then -- btn "Do It"--itemHit = 2 then -- btn "Cancel Updating"on DoHistExpGlobal TFlagIF Hilite of bg btn "Exp Act" is true then ¬¨Send "mouseUp" to bg btn "Exp Act"IF Hilite of bg btn "PC Calc" is true then ¬¨Send "mouseUp" to bg btn "PC Calc"IF Hilite of bg btn "Exp" is true then ¬¨Send "mouseUp" to bg btn "Exp"IF TFlag is "Yes" thenPut "GTotals" into wfldPut 289 into EPut 7 into nlPut 85 into NelsePut "Inv History" into wfldPut 301 into EPut 8 into nlPut 97 into Nend ifPut number of lines of cd fld wfld into LCGet Hilite of cd btn "Exp IHist"IF it is "False" then                                 -- Expands itSet Hilite of cd btn "Exp IHist" to TrueIF "ITPHG" is in windows() then Hide window "ITPHG"lock screenIF (LC*12)>E then Set the scroll of cd fld wfld to (LC*12)-Eelse Set the scroll of cd fld wfld to 0IF TFlag is "Yes" thenIF hilite of cd btn "GT Update" is true thenSet rect of cd fld wfld to 0,43,512,166IF (LC*12)>121 thenSet the scroll of cd fld wfld to (LC*12)-121else Set the scroll of cd fld wfld to 0else Set rect of cd fld wfld to 0,43,512,335elseIF hilite of cd btn "UD Update" is true thenSet rect of cd fld wfld to 0,31,512,166IF (LC*12)>133 thenSet the scroll of cd fld wfld to (LC*12)-133else Set the scroll of cd fld wfld to 0else Set rect of cd fld wfld to 0,31,512,335end ifunlock screenelse                                                  -- Normals itSet Hilite of cd btn "Exp IHist" to Falselock screenIF LC>nl then Set the scroll of cd fld wfld to (LC*12)-Nelse Set the scroll of cd fld wfld to 0IF TFlag is "Yes" thenSet rect of cd fld wfld to "0,43,512,130"else Set rect of cd fld wfld to "0,31,512,130"unlock screenIF "ITPHG" is in windows() then Show window "ITPHG"end ifend DoHistExpon PrintHelp dialog,itemHit -- for InvHelp dialogGlobal TFlagIF itemHit=0 thenGet the loc of cd windowAdd 41 to item 1 of itAdd 155 to item 2 of itPut "Loc "&it into HVdChanger dialog & return & HVdChanger dialog,"4‚óäcolor blue"IF TFlag is "Yes" thenIF Hilite of bg btn "History" is True thendChanger dialog,"5‚ó䬆 Instructions/Features for the Grand Totals History Window"else dChanger dialog,"5‚ó䬆¬†¬†¬†¬†¬†¬†¬†Instructions and Features for Grand Totals"elseIF Hilite of bg btn "History" is True thendChanger dialog,"5‚óäInstructions/Features of Investment History Database Window"end ifend ifend ifIF itemHit=3 thenIF TFlag is "Yes" thenIF Hilite of bg btn "History" is True thenPut cd fld ID 110 into bg fld "Help Info"Put "¬†¬†¬† INSTRUCTIONS and FEATURES for GRAND TOTALS HISTORY WINDOW"&return¬¨into line 1 of bg fld "Help Info"PrintField "Card Field ID 110",1,72,72,62,72elsePut cd fld ID 111 into bg fld "Help Info"Put "¬†¬†¬†¬†     ¬†¬†¬† INSTRUCTIONS and FEATURES for GRAND TOTALS"&return¬¨into line 1 of bg fld "Help Info"PrintField "Card Field ID 111",1,72,72,62,72end ifelseIF Hilite of bg btn "History" is True thenPut bg fld "Hist Info" of cd "Blank Inv" into bg fld "Help Info"Put "INSTRUCTIONS/FEATURES FOR THE INVESTMENT HISTORY DATABASE WINDOW"&return¬¨into line 1 of bg fld "Help Info"elsePut bg fld "Help Info" of cd "Blank Inv" into bg fld "Help Info"Put "¬†¬†¬†INSTRUCTIONS and FEATURES FOR INDIVIDUAL INVESTMENTS"&return¬¨into line 1 of bg fld "Help Info"end ifPrintField "bg fld ID 40",1,72,72,62,72end ifend if--IF itemHit=3 then dChanger dialog,"","Dismiss"IF short name of this cd <> "Blank Inv" then Put Empty into bg fld "Help Info"end PrintHelpon HistoryPlotSeq            -- for all History DataGlobal IFlag,RGT,PFlag,TFlag,HNPFlag,SDFlag,NoDPsFlagSet the cursor to 4IF Hilite of bg btn "Exp Hist" is True then ¬¨Send "mouseUp" to bg btn "Exp Hist"IF TFlag is "Yes" thenIF hilite of cd btn "GT Update" is True thenSend "mouseUp" to cd btn "GT Update"end ifelseIF hilite of cd btn "UD Update" is True then Send "mouseUp" to cd btn "UD Update"end ifIF Hilite of bg btn "PC Calc" is True then ¬¨Send "mouseUp" to bg btn "PC Calc"IF HNPFlag<>empty thenPut "May be bad data"&return&"for plotting . . ." into cd fld S1Show cd fld S1Wait 2 secondsPut "We'll give it"&return&"a try though!" into cd fld S1Wait 2 secondsHide cd fld S1end ifPut "OK, Plotting"&return&RGT into cd fld S1Show cd fld S1Set the cursor to 4DoHistoryData                       -- starts plotting seqIF NoDPsFlag is "Yes" thenPut "There wasn't any"&return&RGT&" data?" into cd fld S1Put empty into NoDPsFlagelse IF SDFlag<>"yes" thenSet name of bg btn ID 58 to "Clear"IF PFlag is "must" then Put "OK" into PFlagIF TFlag is "Yes" thenPut "Grand Totals"&return&"are now current!" into cd fld S1else Put "Investment History"&return&"is now current!" into cd fld S1else Put "the Specific Dates"&return&"have been plotted." into cd fld S1Show cd fld S1Wait 2 secondsHide cd fld S1IF "ITPHG" is in windows() then show window "ITPHG"end HistoryPlotSeqon ComparePlotSeqGlobal CompFlag,Comp,RGT,LPT,CIName,IName,NoDPsFlagSet cursor to 4Put "Yes" into CompFlagIF "ITPHG" is in windows() then close window "ITPHG"Choose select toolDrag from 37,174 to 467,331 -- bounds must be 1 pixel < than HG boundsdoMenu "Copy Picture"Choose browse toolIF Comp is empty then Put "1" into Comp else Add 1 to CompPut "Getting "&CIName&return&RGT&" data." into cd fld S1Show cd fld S1IF LPT is "Market" then DoMarketData else DoHistoryData -- starts plotIF NoDPsFlag is "Yes" thenChoose select tooldoMenu "Paste Picture"Choose browse toolPut "There wasn't any"&return&RGT&" data?" into cd fld S1IF Comp<>"1" then Subtract 1 from CompPut empty into NoDPsFlagelseIF IName=CIName then Set name of bg btn ID 58 to "Clear"Put empty into CINameIF Comp>3 thenPut "This thing is"&return&"getting messy!" into cd fld S1Put empty into Compelse Put "How does the"&return&"comparison look!" into cd fld S1end ifShow cd fld S1Wait 2 secondsHide cd fld S1IF "ITPHG" is in windows() then show window "ITPHG"Put empty into CompFlagend ComparePlotSeqon MarketPlotSeq            -- for Indv & DJ Market Data onlyGlobal IName,wIData,wINAV,DJFlag,RGT,PFlag,SDFlag,NoDPsFlagSet the cursor to 4IF Hilite of bg btn "Exp Hist" is True then ¬¨Send "mouseUp" to bg btn "Exp Hist"IF Hilite of bg btn "PC Calc" is True then ¬¨Send "mouseUp" to bg btn "PC Calc"IF SDFlag<>"Yes" thenPut IName&" Inv Data" into wIDataIF DJFlag<>"Yes" thenPut Empty into cd fld "WorthGL"Put Empty into cd fld "InvPCDVal"end ifPut getDate(line 1 of bg fld "DVSGS") into wIPDPut getNum(line 3 of bg fld "DVSGS") into wINAVIF wIPD <> first word of last line of cd fld wIData thenPut the number of lines of cd fld wIData into LC0IF line 5 of bg fld "DVSGS" is "In the Market" then Put "1" into wIMSelse Put "0" into wIMSPut wIPD & " " & wIMS & " " & wINAV into line (LC0+1) of cd fld wIDataend ifend ifPut "OK, Plotting"&return&RGT into cd fld S1Show cd fld S1Set the cursor to 4DoMarketData                       -- starts plotting seqIF NoDPsFlag is "Yes" thenPut "There wasn't any"&return&RGT&" data?" into cd fld S1Put empty into NoDPsFlagelse IF SDFlag<>"yes" thenDetValue                         -- ends plottingSet name of bg btn ID 58 to "Clear"IF PFlag is "must" then Put "OK" into PFlagPut "Market History"&return&"is now current!" into cd fld S1else Put "the Specific Dates"&return&"have been plotted." into cd fld S1Show cd fld S1Wait 2 secondsHide cd fld S1IF "ITPHG" is in windows() then show window "ITPHG"end MarketPlotSeqon EntryNoCheckGlobal LastNo,wCF,TFlagSet Cursor to 4Put "Checking entry"&return&"for format!" into cd fld S1Show cd fld S1IF TFlag is "Yes" then Put getNum(cd fld wCF) into NewNoelseIF cd fld "Vestment" is cd fld wCF thenIF cd fld "Vestment" is empty thenPut empty into cd fld "Vestment"Hide cd fld S1Send "UpdateInvCard" to bg btn "Help"EXIT EntryNoCheckelse Put getNum(cd fld wCF) into NewNoelse Put getNum(cd fld wCF) into NewNoend ifREPEAT with i=1 to length (NewNo)Put char i of NewNo into CheckIF Check is not in "0123456789. -" thenAnswer " Enter only numbers & period (.), i.e. 1246.60!"Put LastNo into cd fld wCFPut Empty into LastNoPut "Not quite right"&return&"yet, Patience!" into cd fld S1Wait 3 secondsHide cd fld S1Select text of cd fld wCFEXIT to HyperCardend ifend REPEATIF TFlag is "Yes" then Put "$ "&NewNo into cd fld wCFelseIF cd fld "Vestment" is cd fld wCF thenPut "$ "&NewNo into cd fld "Vestment"end if  --leaves Shares cd fld as isend ifPut "Your entry is OK!"&return&"...I'm updating..." into cd fld S1IF TFlag is "Yes" then EXIT EntryNoCheckSend "UpdateInvCard" to bg btn "Help"end EntryNoCheckon DetValueGlobal wINAV,TWValue,LWValue,DJFlagIF DJFlag is "Yes" thenHide cd fld S1EXIT DetValueend ifSet Cursor to 4Put "Now for what"&return&"this is Worth!" into cd fld S1Show cd fld S1wait 1 secondsIF cd fld "Shares" <> Empty thenSet numberFormat to "0.00"Put getNum(cd fld "Shares") into NoSharesPut NoShares*1*wINAV into WorthPut "$ "&Worth into line 1 of cd fld "WorthGL"Put getNum(cd fld "Vestment") into VestedIF Vested <> Empty thenIF Vested*1 <> 0 thenPut Worth-Vested into GLPut "$ "&GL into line 3 of cd fld "WorthGL"Set numberFormat to "0.0"Put (GL/Vested)*100 into PCPut PC&"% Investment Return" into line 1 of cd fld "InvPCDVal"Set numberFormat to "0.00"elsePut "$ 0.00" into line 3 of cd fld "WorthGL"Put "N/A% Investment Return" into line 1 of cd fld "InvPCDVal"end ifend ifIF getNum(line 3 of cd fld "WorthGL") is "0.00" ¬¨and word 1 of line 1 of cd fld "InvPCDVal" is "N/A%" thenPut "You ain't into it!"&return&"Bye Now!" into cd fld S1Put "$ 0.00 change from last week" into line 2 of cd fld "InvPCDVal"Wait 2 secondsHide cd fld S1EXIT DetValueend ifIF TWValue=LWValue thenPut "You broke even!"&return&"Bye Now!" into cd fld S1Put "$ 0.00 change from last week" into ¬¨line 2 of cd fld "InvPCDVal"else IF TWValue>LWValue thenPut "Your Richer this week. Bye Now!" into cd fld S1Put (TWValue*NoShares)-(LWValue*NoShares) into DValuePut "$ "&DValue&" INCREASE from last week" into ¬¨line 2 of cd fld "InvPCDVal"else IF TWValue<LWValue thenPut "Your Poorer this week. Bye Now!" into cd fld S1Put (LWValue*NoShares)-(TWValue*NoShares) into DValuePut "$ "&DValue&" DECREASE from last week" into ¬¨line 2 of cd fld "InvPCDVal"end ifWait 2 secondsHide cd fld S1elsePut "Zippo on Worth!"&return&"Got Graphs is all" into cd fld S1Wait 2 secondsHide cd fld S1end ifend DetValueon FindNAVGlobal LPT,LGT,HLC,HS,IFlag,TFlag,Horz,PFlag,wfld,PCfloat,SDFlagIF PFlag is Empty then EXIT FindNAVSet cursor to 4IF hilite of bg btn "PC Calc" is true thenPut dcontents(PCfloat,"2‚óä") into reqPCelse Put LPT into reqPCIF reqPC<>"Market" thenIF TFlag is "Yes" then Put "GTotals" into wfldelse Put "Inv History" into wfldelsePut short name of cd fld ID 1 into wfldend ifIF Hilite of bg btn "Exp Hist" is True thenSet loc of cd fld S1 to 292,193       -- Shiftedelse Set loc of cd fld S1 to 396,193    -- NormalGet the ClickLocPut Item 1 of it into HorzSet the cursor to 4Put word 1 of line 7 of bg fld "DVSGS" into Wks -- No. of graph weeksPut 432/Wks into HDiv                           -- pixels per weekPut Round((Horz-36)/HDiv) into LC               -- 0-52(left to right)IF SDFlag is "Yes" then Put line 14 of bg fld "DVSGS" into SDLLIF reqPC is "Market" thenResetCheckPut number of lines of cd fld wfld into RLLIF SDFlag is "Yes" thenIF "Market" is not in LGT thenPut (number of lines of cd fld "Inv History")-RLL into DLLPut SDLL-DLL-Wks+LC into C1else Put SDLL-Wks+LC into C1else Put RLL-Wks+LC into C1IF C1<1 thenPut word 1 of cd fld wfld into aDatePCWarn reqPC,aDateend ifIF word 2 of line C1 of cd fld wfld is "1" thenPut quote&"In"&quote&" the Market" into S12else Put quote&"Out"&quote&" of Market" into S12Put Empty into cd fld S1IF Hilite of bg btn "Exp Hist" is True thenSet rect of cd fld S1 to 233,176,357,221else Set rect of cd fld S1 to 342,176,466,221 --210Show cd fld S1Put word 1 of line C1 of cd fld wfld into line 1 of cd fld S1 --DatePut S12 into line 2 of cd fld S1                     --Market StatusPut word 3 of line C1 of cd fld wfld into line 3 of cd fld S1  --NAVIF Hilite of bg btn "PC Calc"<>True thenWait 2 secondsHideNAVEXIT FindNAVelsePut Empty into HS                -- clears History Stuff only flagDoPCend ifelse  --HistoryResetCheckPut number of lines of cd fld wfld into RLLIF SDFlag is "Yes" thenIF "Market" is in LGT thenPut (number of lines of cd fld ID 1)-RLL into DLLPut SDLL-DLL-Wks+LC into HLCelse Put SDLL-Wks+LC into HLCelse Put RLL-Wks+LC into HLC           -- History window Line CountIF HLC<1 thenPut word 1 of cd fld wfld into aDatePCWarn reqPC,aDateend ifIF Hilite of bg btn "PC Calc"<>True thenIF IFlag is "Yes" thenIF Hilite of bg btn "Exp Hist" is True thenSet rect of cd fld S1 to 222,176,357,270else Set rect of cd fld S1 to 331,176,466,270Set textAlign of cd fld S1 to LeftPut empty into cd fld S1Show cd fld S1Put "Date:    "&Word 1 of Line HLC of cd fld wfld into ¬¨line 1 of cd fld S1Put "Vested: $ "&Word 3 of Line HLC of cd fld wfld into ¬¨line 2 of cd fld S1Put "Shares: "&Word 5 of Line HLC of cd fld wfld into ¬¨line 3 of cd fld S1Put "Value:   "&Word 7 of Line HLC of cd fld wfld into ¬¨line 4 of cd fld S1Put "Worth:  $ "&Word 9 of Line HLC of cd fld wfld into ¬¨line 5 of cd fld S1Put "G/L:     $ "&Word 11 of Line HLC of cd fld wfld into ¬¨line 6 of cd fld S1Put "Return: "&Word 13 of Line HLC of cd fld wfld into ¬¨line 7 of cd fld S1else --GTotalsSet rect of cd fld S1 to 301,176,466,270Set textAlign of cd fld S1 to LeftPut Empty into cd fld S1Show cd fld S1Put "Date:          "&Word 1 of Line HLC of cd fld wfld into ¬¨line 1 of cd fld S1Put "Worth:        $ "&Word 3 of Line HLC of cd fld wfld into ¬¨line 2 of cd fld S1Put "Vested:       $ "&Word 5 of Line HLC of cd fld wfld into ¬¨line 3 of cd fld S1Put "Tot G/L:¬† ¬† $ "&Word 7 of Line HLC of cd fld wfld into ¬¨line 4 of cd fld S1Put "Week % Ret: "&Word 9 of Line HLC of cd fld wfld into ¬¨line 5 of cd fld S1Put "Weeks G/L:  $ "&Word 11 of Line HLC of cd fld wfld into ¬¨line 6 of cd fld S1Put "Wks % G/L:  "&Word 13 of Line HLC of cd fld wfld into ¬¨line 7 of cd fld S1end ifWait 2 secondsHideNAVEXIT FindNAVelsePut "Yes" into HS                      -- sets History Stuff flagDoPCend ifend ifend FindNAVon PCWarn reqPC,aDateanswer "There's no "&reqPC&" data before "&quote&aDate&quote&"..."answer "... so percentage can't be determined, Sorry!"EXIT to HyperCardend PCWarnon ResetCheckGlobal PCReset,PCFloatIF PCReset is "Yes" thenIF hilite of bg btn "PC Calc" is true then Send "PCHit PCFloat,1" ¬¨to bg btn "PC Calc"EXIT to HyperCardend ifend ResetCheckon HideNAVIF the mouse is down then Show cd fld S1elseHide cd fld S1Set textAlign of cd fld S1 to CenterSet rect of cd fld S1 to 342,176,466,210 -- Norm Size 451Set loc of cd fld S1 to 404,193          -- Norm Loc 393end ifend HideNAVon DoPCGlobal HLC,HS,FD,FV,TD,wfld,TFlag,wRMN,PCfloat,PCResetPut dContents(PCfloat,2,"short") into wMiIF FD is empty thenIF HS<>"Yes" then --does market data out of fld S1Put line 1 of cd fld S1 into FDdChanger PCfloat,"4‚óä"&FDPut line 3 of cd fld S1 into FVdChanger PCfloat,"5‚óä"&FVelse --HistoryPut getDate(word 1 of line HLC of cd fld wfld) into FDdChanger PCfloat,"4‚óä"&FDIF TFlag<>"Yes" thenIF wMi is 2 thenPut getNum(word 3 of line HLC of cd fld wfld) into FVelse Put getNum(word 9 of line HLC of cd fld wfld) into FVdChanger PCfloat,"5‚óä"&FVelse                                              -- GTotalsIF wMi is 2 thenPut getNum(word 5 of line HLC of cd fld wfld) into FVelse Put getNum(word 3 of line HLC of cd fld wfld) into FVdChanger PCfloat,"5‚óä"&FVend ifend ifdChanger PCfloat,"1‚óäActivate"IF HS<>"Yes" thenWait 2 SecondsHideNAVend ifelseIF TD is Empty thenIF HS<>"Yes" thenPut line 1 of cd fld S1 into TDdChanger PCfloat,"6‚óä"&TDPut line 3 of cd fld S1 into TVdChanger PCfloat,"7‚óä"&TVelsePut getDate(word 1 of line HLC of cd fld wfld) into TDdChanger PCfloat,"6‚óä"&TDIF TFlag<>"Yes" thenIF wMi is 2 thenPut getNum(word 3 of line HLC of cd fld wfld) into TVelse Put getNum(word 9 of line HLC of cd fld wfld) into TVdChanger PCfloat,"7‚óä"&TVelse   -- GTotalsIF wMi is 2 thenPut getNum(word 5 of line HLC of cd fld wfld) into TVelse Put getNum(word 3 of line HLC of cd fld wfld) into TVdChanger PCfloat,"7‚óä"&TVend ifend ifConvert FD to secondsConvert TD to secondsIF FD<TD thenPut ((TV-FV)/FV)*100 into tempSet the numberFormat to "0.0"Put Temp&"%" into PCAnswerIF PCAnswer contains "INF" then Put "Great %" into PCAnswerIF PCAnswer contains "NAN" then Put "0.00 %" into PCAnswerdChanger PCfloat,"8‚óä"&PCAnswerdChanger PCfloat,"1‚óäActivate"Put "Yes" into PCResetIF HS<>"Yes" thenWait 2 SecondsHideNAVend ifelseConvert TD to short datedChanger PCfloat,"4‚óä"&TDConvert FD to short datedChanger PCfloat,"6‚óä"&FDdChanger PCfloat,"5‚óä"&TVdChanger PCfloat,"7‚óä"&FVPut ((FV-TV)/TV)*100 into tempSet the numberFormat to "0.0"Put Temp&"%" into PCAnswerIF PCAnswer contains "INF" then Put "Great %" into PCAnswerIF PCAnswer contains "NAN" then Put "0.00 %" into PCAnswerdChanger PCfloat,"8‚óä"&PCAnswerdChanger PCfloat,"1‚óäActivate"Put "Yes" into PCResetWait until the mouse is upPut empty into cd fld S1Set textAlign of cd fld S1 to CenterSet rect of cd fld S1 to 342,176,466,210Put "Earliest date"&return&"should be first!" into cd fld S1Show cd fld S1Wait 2 SecondsPut " It's OK though."&return&"I reversed it!" into cd fld S1Wait 2 SecondsHideNAVend ifend ifend ifend DoPCon OCFieldMgmtGlobal CCFlag,MGW,LGT,RGT,TFlag,SDFlag,LPTIF CCFlag is "Yes" then EXIT OCFieldMgmtPut the number of lines of cd fld ID 1 into LCIF LC>5 then Set the Scroll of cd fld ID 1 to (LC*12)-57else Set the Scroll of cd fld ID 1 to 3Put LGT into RGTPut last word of line 7 of bg fld "DVSGS" into MGWPut line 11 of bg fld "DVSGS" into SDFlagIF SDFlag is "Yes" thenShow bg fld "SD"Set name of bg btn ID 58 to "Plot"else Hide bg fld "SD"Put empty into TFlagUpDateCheck MGW,RGTend OCFieldMgmton UpDateCheck MGW,RGTGlobal DoClearPut RGT&return&" are current..." into cd fld S1Show cd fld S1Wait 2 secondsPut empty into cd fld S1IF MGW<3 thenPut "Not enough data"&return&"for Plotting yet!" into cd fld S1else IF short name of bg btn ID 58 is "Clear" thenIF bg fld "AW"<3 then DoEDFPelse Put "and the graph is"&return&"up-to-date also!" into cd fld S1else IF short name of bg btn ID 58 is "Plot" thenIF bg fld "AW"<3 then DoEDFPelse Put "Select "&quote&"Plot"&quote&return&" to update graph!" into cd fld S1Put "Yes" into DoClearend ifWait 2 secondsHide cd fld S1end UpdateCheckon DoEDFPPut "There's enough data"&return&"for Plotting now!" into cd fld S1Wait 3 secondsPut "Select more weeks"&return&"to allow plotting!" into cd fld S1Wait 1 secondsend DoEDFPon CCFieldMgmtGlobal CCFlag,CompFlag,Comp,HNPFlag,PFlag,LGT,MGW,RGT,wRMN,LPT,¬¨IFlag,HM,LEG,wrap,wrapPP,SDSpan,NoDPsFlag,CompLabels,ALLSelect,LSelectIF CCFlag is "Yes" then EXIT CCFieldMgmtIF LGT<>Empty thenIF RGT<>LGT then Set name of bg btn ID 65 to LGTend ifPut Empty into wRMN--Put Empty into LGTPut Empty into MGWPut Empty into RGTPut Empty into LPTPut Empty into IFlagPut Empty into HMPut Empty into CompPut Empty into CompFlagPut Empty into CompLabelsPut Empty into PFlagPut Empty into LEGPut Empty into wrapPut Empty into wrapPPPut Empty into ALLSelectPut Empty into LSelectPut Empty into HNPFlagPut Empty into SDSpan    --safetyPut Empty into NoDPsFlag --safetyend CCFieldMgmt</script>
  608. </background>
  609.